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يسرنى أن أقدم لكم هذا العمل الذى إرجو من الله سبحانه 
' وتعالى أن يساعدكم على فهم ماده الكمبيوثر و نڪنولوجيا 
EK:‏ المعلومات و الحصول على أعلى الدرجات. 
e E‏ وتعلم DI oila‏ كان الأمس قنوط ففى الخد رجاء. 
© وإذا سماؤك bat‏ تحجبت بالغيوم أغمض جفونك تبصر خلف الغيوم نجوم. 
© و إذا كان الأمس ضاع فبين يديك اليوم و إذا كان اليوم سوف يجمع أوراقه 
ويرحل فلديك الغد فلا تحزن على الأمس فهو لن يعود ولا تأسف على اليوم 
فهو راحل ولكن احلم بشمس مضيئة فى غد جميل. . 
ch‏ وأقدم اعتذارى فى حالة وجود أى أخطاء مطبعية أو تقصير فى هذا العمل oi‏ 


AN‏ ۰ الإنسان مهما بذل من جهد لن يصل إلي حد الكمال لأن الكمال لله سبحانه و تعالي. 
ek,‏ 


و الله ويل Get‏ 
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Desktop dë‏ | | الصف الثسالث الإعسدادى 


الفصل الأول : البيسانات Data‏ 
a 6‏ 


كيفية إعداد واجهة البرنامج بإستخدام لغة Visual Basic.NET‏ . 
ee e‏ إدراج أدوات التحكم و ضبط خصائصها فى وضع التصميم من خلال نافذة الخصائص Properties Windows‏ 
o‏ كيفية hua‏ الخصائص Properties‏ فى وضع التشغيل من خلال نافذة الكود Code Window‏ . 
e‏ كيفية تخصيص قيم برمجية لخصائص بعض الأدوات Controls‏ كما يلى : 
Control Name. Property = Value‏ 
e‏ كيفية التعامل مع نافذة الكود و إجراءات Event Procedure Zus?‏ ومن خلالها تبين لنا أنه يمكن لمستخدم , 


. التالية‎ Form البرنامج إدخال قيم ذات أنواع مختلفة و هو مايتضح فى نافذة النموذج‎ di 


CH 
: واجهة البرنامج التالية تمكن المستخدم من إدخال أنواع مختلفة من البيانات‎ 


Data Type نوع البييان‎ 


ōu Al عدد أقراد‎ 


(Je 


Label). 1ext="ةيبرعلا "جمهورية مصر‎ däs © (Text) القيمة المجردة مثال الخاصية‎ 1 (A 
Button1 .Enabled= True llo © ` JEnabledl القيمة المنطقية مثال الخاصية‎ 2 K ' 
Label1.ForeColor=Color. Blue lio © .(ForeColor) القيمة من قائمة مثال الخاصية‎ 3 
Button1.Font=New Font ("Arial","30") Jlo © القيمة بإنشاء كائن مثال الخاصية(+50101).‎ A 
(Re? القيمة من ناتج تعبير حسابى. ( سوف یتم دراستها‎ 5 
) یتم دراستها لاحقاً‎ dgu ( (Properties) أو من خاصية‎ (Variable) القيمة من متغير‎ 6 4 


¥ 7 


EE EES °‏ يتمثيل مين يخالف كسب نوع هذه القيم. 
o‏ كل نوع بيان له طريقة تخزين فى ذاكرة الكمبيوتر (Ram)‏ وهذا يرجع فى الأساس إلى استخدام 


ذاكرة الكمبيوتر الإستخدام الأمثل من حيث المساحة التخزينية › و العمليات الحسابية 


p‏ والمنطقية التى سوف تجرى على هذه القيم. 


© مثال : 

إذا أراد مجموعة طلاب عددهم 22 طالب الذهاب إلى رحلة للأهرامات فإنه من الأفضل أن يستقلوا أتوبيس 25 راكب وليس 
أتوبيس 50 راكب و إن كان فى الحالتين سوف يؤدى نفس الغرض ولكن إستخدام أتوبيس 25 راكب سوف يوفر التكاليف 
أفضل من أتوبيس 50 راكب › هكذا تكون ذاكرة الكمبيوتر. 


2018 التسرم الثانى‎ fr 


| الصف النسالث الإعسدادى , ër‏ 


توفر لغة Visual Basic . Net"‏ " العديد من أنواع البيانات Data Types"‏ " التى يقوم المستخدم بإدخالها و تخزينها, ) 
مؤقتا فى ذاكرة الكمبيوتر S‏ وقد تكون هذه البيانات ناتجة من تنفيذ الأوامر و التعليمات الخاصة بالبرنامج ومن أنواع A‏ 
البيانات التى تتعامل معها Visual Basic . Net AA)‏ : ان 
لبيانات الرقمية (Numeric Data Types)‏ 

هى البيانات التى يتم إجراء العمليات الحسابية عليها » ومن أمثلتها "الراتب ودرجات الشهور و أعمال السنة 
و المصروفات و الإيرادات . إلخ" و تنقسم إلى : 

- البيانات الرقمية الصحيحة : © مثل : ٠3:21‏ ..... إلخ ومنها: 


بيانات رقمية صحيحة 


Integral Numeric Types 


Integer 


- البيانات الرقمية غر الصحيحة: © مثل : 0.5 :0.25 :0.50 < ...... إلخ ومنها: 
بيانات رقمية غير صحيحة 


Non Integral Numeric Types 


Decimal Double 


2 البيانات الحرفية Character Data Types)‏ ; 
هى البيانات التى لا نستطيع إجراء العمليات الحسابية عليها حتى ولو كانت هذه البيانات أرقام و من أمثلتها " أرقام 
الهواتف , أرقام المنازل › الرقم القومى › أرقام الجلوس و ... إلخ " و منها : 

بيات حرفية 
Character Data Types‏ 


3- البيانات المششوعة -Miscellaneous DataTypes‏ 
هى تلك البيانات التى لا تندرج تحت تصنيف البيانات الرقمية أو الحرفية ومنها: 
بيانات ملو d‏ 
Miscellaneous Data Types‏ 


Boolean 


"FED f 


om 


O اوري‎ Co ليد ل موي وي‎ 0 e 


8 أل اسا ا 


Adiak e‏ أنواع البيانات Data Types)‏ ) لها Gel‏ نوع. 
e‏ كل نوع يشغل حيز تخزين فى ذاكرة الكمبيوتر mm nteger) Ja‏ عند استخدامه يشغل 4 بايت من حجم الذاكرة. 
٠ St‏ كل نوع له حد أدنى و Aa‏ من القيم يطلق عليه مدى ) Range‏ ( معين من القيم 

Si 


مثل نوع البيان (Byte)‏ حدود القيم المخزنة به تبدأ ( الحد الأدنى له ) من صفر 
وتنتهى ( الحد الأقصى له ) ب 255. 
le‏ بيانات يتم التعامل معها فى أى برنامج تكون فى ذاكرة الجهاز الداخلية RAM)‏ ). 


A‏ المساحة التى يحتلها فى الذاكرة. 2- القيم التى يمكن حفظها فى هذا النوع. 


:)Variables) Ota Le 


هى عبارة عن أماكن محجوزة بذاكرة الكمبيوتر ( RAM‏ ) عند الإعلان Wie‏ يتحدد لها اسم و نوع 
بيان (Data Type)‏ وعادة ما تتغير قيمتها أثناء سير البرنامج ويمكن أن يأخذ المتغير قيمة إبتدائية 
تسمى Initial Value)‏ ) ثم تتغير قيمته أثناء سير البرنامج مثل سعر سلعة - منتج - قيمة ضريبية - عنوان موظف.. إلخ & 
وجميعها بيانات يمكن أن wë‏ 


يستخدم الأمر (Dim)‏ فى الإعلان عن المتغيرات فى لغة VB.NET‏ كما يتضح بالصيغة الآتية:- 


Dim Variable_Name | As | (Data Type) نوع البيان‎ | [=Initial Value] 


| ج 5 

Dim 7‏ : أمر الإعلان عن المتغيرات. 
Variable Name‏ ` اسم المتغير. , 
Data Type‏ : نوع البيان المخزن فى المتغير. 


[=Initial Value]‏ : القيمة الابتدائية التي يتم تخزينها في المتغير المُعلن عنهء وهذا الجزء اختيارى. 


© إمثلة: 


“Dim U Name As String 

Dim Address As String = "Cairo" 
Dim N Players As Integer 

Dim Price As Decimal= 3 


La عسي‎ 2, 
| 


لابد من الإعلان عن المتغيرات قبل استعمالها فى البرنامج. 

2- استخدام كلمة Dim‏ للإعلان عن المتغير و يجب ألا يحتوى السطر الواحد على أكثر من كلمة „Dim‏ 

3- يمكن الإعلان عن أكثر من متغير فى سطر واحد و نفصل بينهم بالفاصلة ( , ) و ذلك بالضغط على مفتاح 
الواو فى وضع اللغة الإنجليزية. 

A‏ يمكن أن تكتب (=) و بعدها قيمة و هذه القيمة ستكون قيمة البداية ولابد أن تكون من نفس نوع 
المتغير. 

5- أو يمكن أن تهمل علامة اليساوى ( = ) ولا تستخدم وفى هذه الحالة المتغيرات الرقمية تساوى صفر 

بينما المتغيرات الحرفية ستكون سلسلة حرفية فارغة. 


% 


EE 


.) _ )Underscore أو علامة‎ a-z أو‎ A-Z الثابت بحرف من الحروف الانجليزية‎ F E يجب أن يبدأ اسم‎ A 

2- لا يحتوى على الرموز و العلامات الخاصة O‏ مثل ؟ › * › ^ › - › + » . )و غيرها. 

3- يمكن أن يتكون من حروف و أرقام و علامة Underscore‏ ( _ ) الشرطة السفلى. 

A‏ لا تستخدم الكلمات المحجوزة لدى لغة (Visual Basic NET)‏ فى تسمية الثوابت و المتغيرات مثل 
.(Me - Boolean - string - char - decimal - Long - Integer - Dim - Single - as)‏ 

5- يفضل أن يعبر اسم المتغير أو الثابت عن محتواه © مثل المتغير ( Price‏ ) لتخزين السعر. 


6- يجب إختيار نوع البيان المناسب لكل من الثوابت و المتغيرات بحيث تتناسب مع طبيعة البيانات_التى سيتم تخزينها فيه. 


يراعى الإرشادات الآتية عند اا نوع البيان Data Type‏ 

1- حجم البيانات التى سوف تخزن بالمتغير .(Variable)‏ 

2- تحديد نوع بيان säll (Data Type)‏ التى سوف تخزن بالمتغير (Variable)‏ بناء على العمليات الحسابية والمنطقية 
التى من المتوقع أن تجرى على المتغير JNatriablel‏ 


© تدريب1: الإعلان عن اطنغيران:- القيم المتوقع إدخالها من مستخدم البرنامج ونوعها و التسمية المقترحة 


[Hamina =E النسمية اطقابحة‎ CN | séi 
| [label5 الاسم‎ 0 1 (Data Type) 1 
تف‎ UserName (String) اسم المستخدم نص‎ 
Bi A النوع ذكر‎ UserBirthDate تاريخ الميلاد‎ 
عدد أفراد الأسرة‎ | UserGender (Boolean) اللو‎ 
Se UserNoFamily Gë عدد أفراد الأسرة‎ 
ددم‎ (Integer) 
UserTelefoneNo String رقم التليفون نص‎ 


قم بإضافة alco‏ الحدث P| Event Handler‏ بزر النسجيل و وقم ¢ بالإعلان عن í‏ المتغيراث الآنية : 
Public Class "1‏ | 

"Private Sub Buttonl Click (ByVal sender As 

Dim UserName As String 

UserBirthDate As Date 

UserGender As Boolean 

UserNoFamily As Integer 

UserTelefoneNo As String 


Dim 
Dim 
Dim 
Dim 
End Sub 
End Class vaz 
حتى يتسنى لنا تخزين مدخلات مستخدم‎ RAM ( يمكن بهذه الطريقة حجز أماكن بذاكرة الكمبيوتر‎ 
. (Assignment) البرنامج ويتم ذلك عن طريق ما يسمي بالتخصيص‎ 


SS‏ 8 ب کے 


gerne‏ ل EE‏ الحسابى حيث الطرف الأيسر المكان 
5 الذى يوضع فيه المتغير أو الخاصية و الطرف الأيمن عبارة عن قيمة الخاصية أو قيمة المتغير. i‏ 


(Variable) pàis قيمة من‎ 
= d 
(Property) خاصية‎ 


(Variable) متغير‎ 
(Property) أوخاصية‎ 


© أمثلة ` نوضح التنخصيص -:(Assignment)‏ 


Ki 
أو‎ TE 
(Expression) قيمة من تعبير‎ sch 


FED 


Kao‏ تخصيص القيم للمتغيرات ( Variables‏ ( أثناء الإعلان عنها أو فى مرحلة لاحقه. 
«يمكن إعادة التخصيص للمتغيرات أى Ae‏ من المرات و لذلك أطلق لفظ المتغيرات CH‏ قيمتها يمكن أن تتغير أثناء سير 


عمليات البرنامج فى أى وقت. 


o‏ التخصيص يمكن أن يكون بقيمة مجردة أو بمتغير_ و بخاصية أو بتعبير حسابى. 
Ale e‏ )=( لا يقصد بها التساوى الحسابى و Lil‏ يقصد بها علامة للتخصيص كما بالمثال X=X+1‏ حيث , 
(X)‏ الموجودة بالطرف الأيسر تمثل المخزن و (X)‏ الموجودة بالطرف الأيمن تمثل القيمة حيث إذا 
إفترضنا أن قيمة (X)‏ تساوى (5) إذا بعد عملية التخصيص يصبح المتغير (X)‏ يساوى )5+1( أى (6). 


شر الكود الود 
ai: 1‏ الإعلان عن متغير (Number)‏ من النوع (Integer)‏ ثم Dim Number As Integer‏ 
Uam aai‏ المجردة(5) للمتغير Number =5 (Number)‏ | . 
2 قيمة من متفير Ai‏ : تم الإعلان عن متغيرين GE | Dim Number) As Integer |, Number? s (Number1)‏ 
Dim Number2 As Integer 1 S S 8 ée? 1‏ 
النوع (Integer)‏ ثم تم تخصيص القيمة المجردة (5) للمتغير (Number1)‏ وتم م 
تخصص قيمة المتغير (Number!)‏ للمتغير .(Number2)‏ 211111 
3 ن خاصية: تم الإعلان عن متغير (Name)‏ من النوع (String)‏ ثم j ١ Dim Name As String‏ 
تخصيص القيمة من الخاصية (Text)‏ لأداة التحكم Kë Name = Label) Text (label1)‏ 
A‏ قيمة مز Expression‏ تم الإعلان عن متغير (Number)‏ من النوع Dim Number As Single‏ 
ei Grp‏ تم تخصيص القيمة المجردة )7( للمتغير (Number)‏ ثم تم إعادة 8 8 
عملیۂ التخصيص للمتغير (Number)‏ من خلال تعبير (Expression)‏ وهو 7 = Number‏ 
Number = Number / 3 .(Number/3)‏ 
5 تخصيص قيمة -Value‏ تم الإعلان عن متغير (Number)‏ من النوع (Single)‏ وتم al. i‏ 
تخصيص القيمة )5.6( أثناء الإعلان عن المتغير (Number)‏ فى خطوة واحدة. 5.6 = "A Dim Number As Single‏ 
ملعوظة O‏ $ 


REES) 


:2 تدريب‎ D 

سوف نقوم Gajai OU‏ قيم للمتعيرات oil‏ سيف الاعلان عنها فى التدريب رقم 1 والثى dis‏ مدحلات المستخدم . 

E. وهذه اطتعيرات وهی‎ 
UserGender - UserBirthDate - UserName - UserTelefoneNo - UserNoFamily 


æj مومه‎ 


وفى هذه الحالة سوف نستخدم خصائص الأدوات التي استقبلت مدخلات المستخدم دون تغيبر قيمة الخاصية Name‏ للأدوات وهذه الأدوات هى ` 


أداه التحكم الخاصية 
Text TextBox1‏ 
Text TextBox2‏ 
Text TextBox3‏ 
Checked RadioButton1‏ 
Text TextBox4‏ 


Private Sub Buttonl_Click (ByVal 
Dim UserName As String 

Dim UserBirthDate As Date 
Dim UserGender As Boolean 


الإعلان عن المتفيرات 


Dim UserNoFamily As Integer 
Dim UserTelefoneNo As String 


UserName = TextBox1l1. Text 
UserBirthDate = TextBox2 


If RadioButton1l . Checked= 
UserGender = True 

Else 

UserGender = False 

End If 

UserNoFamily = TextBox3. Text 
UserTelefoneNo = TextBox4. Text 
End Sub 


. Text 
True Then 


الكود السابق تخصيص قيم للمتغبرات 

.TextBox1 للأداة‎ Text من الخاصية‎ UserName تم تخصيص قيمة للمتغير‎ o 

.TextBox2 للأداة‎ Text من الخاصية‎ UserBirthDate تم تخصيص قيمة للمتغير‎ o 

aio‏ اختيار الخاصية (Checked)‏ للأداة (RadioButton1)‏ بإستخدام جملة F‏ فإذا كانت قيمة الخاصية 
Checked‏ تساوى True‏ فإنه يخصص للمتغير UserGender‏ القيمة True‏ أما إذا كانت قيمة الخاصية 
Checked‏ تساوى False‏ يخصص للمتغير ۲هل e‏ r6ءsل‏ القيمة .False‏ 

.TextBox3 للأداة‎ Text من الخاصية‎ UserNoFamily تم تخصيص قيمة للمتغير‎ o 

.TextBox4 للأداة‎ Text تم تخصيص قيمة للمتغير0/ا406عاع56/7لا من الخاصية‎ o 


Tess f eh 


WP| UserGender ع‎ vbCrLf ع‎ UserNoFamily 


ZK 
ei 


e }‏ إذا وجد المتغير فى الطرف الأيسر من جملة التخصيص Véi‏ يعنى أنه المكان الذى سوف تخزن به القيمة أما إذا وجد فى 
٠‏ الطرف الأيمن من جملة التخصيص Wéi‏ يعنى أنه يعبر عن القيمة الموجودة لديه. 
' © تدريب: 1 - قم باضافة del‏ تحئم Label 5) oloje‏ ) بعد hub‏ خصائصها:- .. 


N‏ من عي 


الخاصية EI‏ > الاسم Label5‏ 
False‏ تاريخ المبلاد جه 


ail ذكر‎ © esl بإستخدام مؤفرالفارة‎ Size , Location 


Ki 
| ذد افزلذ الأسرة‎ | FixedSingle BorderStyle ) 


AutoSize 


| | 
تسجيل 


2- قم بفتح إجراء الحدث (Click)‏ الخاص بالزر" تسجيل " د ثم أضف الكود (Code)‏ الآتي: 
Me.Label5.Text = UserName &vbCrLf & UserBirthDate & vbCrLf © `‏ 


و سوف يكون شكل معالح الحدث Click‏ لزر الأمرر تسجيل ) كما يلى : 

Private Sub Buttonl Click (ByVal sender As System.Object, ByVal 

الاعلان عن المتغيرات 

UserName As String 

UserBirthDate As Date 

UserGender As Boolean 

UserNoFamily As Integer 

UserTelefoneNo As String 


Rem تخصيص قيم للمتغيرات‎ 
UserName = Me.TextBoxl. Text 
UserBirthDate = Me.TextBox2. Text 

If Me Badiobuttonl . Checked = True Then 
UserGender = True 

Else 

UserGender = False 

End If 

UserNoFamily = Me.TextBox3. Text 
UserTelefoneNo = Me.TextBox4. Text 


' استخدام المتغيرات‎ 
Me.Label5.Text = UserName & vbCrLf& UserBirthDate & vbCrLf © UserGender ` 
&vbCrLf & UserNoFamily & vbCrLf & UserTelefoneNo 


gë ` Sub 


"ees t fD 


إل شع 


ظة V‏ 
k GE‏ عن ila‏ تخصيص (Assignment)‏ لمجموعة المتغيرات (Variables)‏ للخاصية 
(Text)‏ لأداة التحكم (Lable5)‏ حيث :- 
daio‏ بين كل متغير و الآخر ( & &vbCrLf‏ ). 
«تستخدم علامة الربط & للربط بين النصوص. 
«الكلمة المحجوزة (Visual Basic Carriage Return Line Feed) VBCRLF‏ تستخدم فى إنشاء سطر 
جديد وهی تشير لمفتاح الإدخال Enter‏ من لوحة المفاتيح. 
«تستخدم علامة Underscore‏ ) _ ) حتى يمكن كتابة سطر الكود على أكثر من سطر فى حالة إذا 
كان سطر الكود (Code)‏ طويل بعض الشيئ وذلك للتنظيم و تسهيل عملية قراءة الكود (Code)‏ 


) 
05 
(Me)e )‏ تعبر عن نافذة النموذج (Form)‏ الحالية. 
) 
4 


e 


o‏ يستخدم المبرمج الأمر Rem‏ أو العلامة ( ' ) فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود 


: 
ولا يتم ترجمتها بواسطة مترجم Compiler)‏ ) اللغة. ا : 


3- بعد الإنتهاء من كتابة الكود ( agii ) Code‏ بالضغط على مفتاح ( F5‏ ) لعمل „(Start Debugging)‏ 
4- ادخل بيانات استمارة التسجيل ثم اضغط على زر تسجيل كما هو موضح بالشكل التالى : 


الاسم رهف اتود رهف أحمد 
ai NIT ap‏ 

/ A. False 

CT) H 

تاريخ الميلاد T+*0-1Y-V‏ 


النوع دکر © ail‏ 


عدد أفراد الأسرة  o‏ 


هى عبارة عن أماكن محجوزة بذاكرة الكمبيوتر (RAM)‏ عند الإعلان عنها يتحدد لها اسم و نوع بيان 
(Data Type)‏ و قيمة أثناء الاعلان عنها فقط › وتأخد قيم ثابتة لا تتغير أثناء سير البرنامج. 


© مثل : بعض الثوابت الرياضية كقيمة ط أو بعض الثوابت فى الفيزياء كعجلة الجاذبية الأرضية و سرعة الضوء 
و سرعة الصوت ... إلخ جميعها قيم ثابتة لا تتغير. 


ا 
SÉ‏ ? 
l‏ 
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يستخدم الأمر CONST‏ فى الإعلان عن الثوابت فى لغة VB.NET‏ كما يتضح بالصيغة التالية: 


Value A‏ = | نوع البيان As | (Data Type)‏ | اسم الثابت 


| حيث S‏ 
Const‏ : أمر الإعلان عن الثوابت. 
Constant Name‏ : اسم Ül‏ , 
Data Type‏ : نوع البيان المخزن فى الثابت. 
Value‏ : القيمة الثابتة التى سيتم تخزينها فى الثابت المُعلن عنه. 


- حيث تم الاعلان عن ثابت IC Namel‏ له نوع بيان حرفى (String)‏ وتم تخصيص القيمة 
النصية " جمهورية paa‏ العربية" أثناء الاعلان عنه فقط. 
eConst Pi As Single = 3.14‏ 08 أو 22/7 = e Const Pi As Single‏ 
- حيث تم الاعلان عن ثابت (Pi)‏ له نوع بيان (Single)‏ وتم تخصيص القيمة الرقمية 3.14 OR‏ 22/7 أثناء 
الاعلان aie‏ فقط. 


Const C Name As String = "جمهورية مصر العربية"‎ 


e Const BirthDate As Date = # 18/6/2011# 


- حيث تم الاعلان عن ثابت (BirthDate)‏ له نوع بيان (Date)‏ وتم تخصيص قيمة التاريخ #18/6/2011# أثناء 
الاعلان عنه فقط. 

ملعوظة © 

تستخدم علامتى " " فى حالة إذا ما أردنا كتابة نص. 
o‏ تستخدم علامتى الشباك (هاش ) # # فى حالة إذا ما أردنا كتابة تاريخ أو وقت. 

o‏ لابد من الاعلان عن الثوابت قبل استعمالها فى البرنامج. 

e‏ لابد من استخدام كلمة Const‏ للاعلان عن الثابت وهى من الكلمات المحجوزة. 

لابد أن تكتب ( = ) ثم بعدها قيمة هذا الثابت ولابد أن تكون هذه القيمة من نفس نوع الثابت. 
قيمة الثابت تظل ثابتة لا يمكن تغيرها أثناء تشغيل البرنامج. 


© تدريب :1 1 : الإعلان عن الثوابت ) Constants Declaration‏ ( 1 
` إعداد VB. Va‏ يستقيل ge‏ رقمية لنصف قط دائره فيحسب مساحتها و محطيها عند bach‏ على زر أمر, / 


) 
0 
Button $‏ علماً بأن : مساحة الدائرة = mr‏ , > محيط الدائره = :22 › حيث dis r‏ نصف قطرالدائره zm‏ 22/7. 


1- يتم تصميم نافذة النموذج Form‏ كالتالى : 


[ دم ود حساب مساحة boer‏ الدائرة 


Ce 


e‏ أدخل نصف القطر 


0 i الاعسدادى‎ elbar) الصدف‎ | 


2- افتح نافذة الكود بالضغط على مفتاح (F7)‏ ثم نكتب الكود Code‏ الخاص بحساب مساحة الدائرة باستخدام إجراء الحدث 
Button1_Click ْ‏ و محيط الدائرة باستخدام إجراء الحدث Button? Click‏ بحيث تظهر النتيجة داخل أداة تحكم, 
01 العنوان 2 كما يلى A S‏ 


Public Class Forml 
Private Sub Buttonl Click (ByVal sender As 


End Sub 


Private Sub Button2_ Click (ByVal sender As 
End Sub 


0 3- فى نطاق إجراء الحدث للزر Button1_ Click)‏ ) ثم قم بكتابة الكود الخاص بحساب مساحة الدائرة واعرض الناتج , 4 
داخل أداة التحكم (Label2)‏ كما يلى: 


Private Sub Button1l_ Click (ByVal sender As 
Dim Radius As single 

Const Pi As Single = 22/ 7 

Radius = TextBox1l . Text 


Label2.Text = Pi * Radius ^ 2 GC 
End Sub ar? 
H 


GC السادق:‎ A 
„Single من النوع‎ Radius تم الاعلان عن متغير‎ - 1 
فقط.‎ Ae و تخصيص قيمة 7/22 له أثناء الإعلان‎ Single من النوع‎ Pi تم الاعلان عن الثابت‎ - 2 
> Radius للمتغير‎ TextBox1 لأداة التحكم‎ Text تم تخصيص قيمة الخاصية‎ - 3 
0 طبقاً للقانون‎ Label? asail لأداة‎ Text للخاصية‎ (Pi * Radius ^ 2) تم تخصيص التعبير الحسابي‎ - 4 
الرياضى.‎ 
من شريط‎ P الأداة‎ Ai نقوم بالضغط على مفتاح ۴5 من لوحة المفاتيح أو‎ Code بعد الانتهاء من كتابة الكود‎ A 
ونكتب قيمة نصف القطر فى صندوق النص 767480171 ثم نقوم بالنقر على زر‎ Start Debugging Lal الأدوات‎ 
مساحة الدائرة ومحيط الدائرة فتظهر النتيجة كما يلى:‎ 


مساحة الدائرة 


28-28571367239 


نطاق اجراء الحدث للزر Button?‏ دون الاعلان عن المتغيرات e AÍ A Aa‏ كما "e‏ 


Radius = TextBox1. Text 
Label2.Text = Pi * Radius * 2 


ليصبح شكل الكود كما يلى : 


Private Sub Buttonl Click (ByVal sender As 


Dim Radius As single 

Const Pi As Single = 22/ 7 
Radius = TextBox1l. Text 
Label2.Text = Pi * Radius 
End Sub 


2-2 


Private Sub Button2_ Click (ByVal sender As 
Radius = TextBox1l. Text 
Label2.Text = Pi * Radius * 2 
End Sub 


أننا لم نعلن عن المتغير والثابت فى نطاق إجراء 2 Button?‏ ولكن: 

de‏ الاعتماد على أن المتغير (Radius)‏ و الثابت Pi‏ سبق الإعلان عنهما فى نطاق إجراء الحدث 
(Button1 _ Click)‏ . 

sS 
رغم أنهما معلنين فى نطاق الزر‎ (Button? _ Click) لم يتم الإعلان عنهما فى نطاق الحدث‎ 
Button) 

o‏ وبناء على ذلك اتضح لنا أنه لا يمكن استخدام المتغيرات و الثوابت إلا فى نطاق إعلانها. 


REES) é 


. (Button? Click) فى نطاق إجراء الحدث‎ Pi و الثابت‎ (Radius) Aidi ولحل هذه المشكلة يمكن أن نعيد إعلان‎ 
Private Sub Buttonl Click (ByVal sender As 
Dim Radius As single 
Const Pi As Single = 22/ 7 
Radius = TextBox1l. Text 
Label2.Text = Pi * Radius ^ 2 


End Sub 


Private Sub Button2_ Click (ByVal sender As 
Dim Radius As single 
Const Pi As Single = 22/ 7 
Radius = TextBox1l. Text 
Label2.Text = Pi * Radius * 2 
End Sub 
End Class 


a‏ الآخر لهذه المشكلة 
كما يمكن الاعلان عن المتغيرات والثوابت على مستوى التصنيف Public Class‏ وعندها لا نحتاج إلي الاعلان 
عن المتغيرات عند كل نطاق إجراء حدث. 


Public Class "021 
Dim Radius As single 
Const Pi As Single = 22/ 7 


Private Sub Buttonl Click (ByVal sender As 
Radius = TextBox1l1. Text 
Label2.Text = Pi * Radius ^ 2 

End Sub 


Private Sub Button2_ Click (ByVal sender As 
Radius = TextBox1. Text 
Label2.Text = Pi * Radius * 2 

End Sub 


مساحة الدائرة مرة و محيط الدائرة مرة أخرى لتظهر النتائج . 


O EH‏ حساب مساحة ومحيط الدائرة 


أدخل نصف القطر 


S KE هو‎ D = £ H 
مساحة الدائرة معحيط الدائرة | مساحة الدائرة‎ 


WË اا‎ na Ge ETIATAEYTAV 


0 
End Class‏ 
ثم قم بتشغيل البرنامج بالضغط على مفتاح ER‏ لعمل (Start Debugging)‏ وادخل نصف القطر واضغط على زر 


0 اطعامل فى لغة الإرمجة نا العملية QI‏ 
^ الرفع إلى الأس 
S‏ الضطرب 
/ القسمة العادية 


\ قسمة أعداد صحيحة (صحيح القسمة) 


(١ e ( 
CG CG 
) 


- أولويات العمليات الحسابية : 

1 - فك الأقواس بتنفيذ العمليات من الداخل إلى الخارج (( ) ( (C‏ 
2 - الرفع إلى الأس )^( 

3 -الضرب ( * ) والقسمة العادية ( / ) أيهما أسبق من اليسار إلى اليمين. 
- باقى القسمة „Mod‏ 


1 5 الجمع )+( والطرح ( -) أيهما أسبق من اليسار إلى اليمين. ١‏ 
ZE 8.‏ من الضرورى الالتزام بمراعاة أولويات تنفيذ العمليات الحسابية عند إنشاء تعبيرات حسابية Expression‏ تستخدم A‏ 
فى ila‏ التخصيص_ Assignment‏ حتى لا تقع أخطاء من النوع Logic Errors‏ لأن ناتج جملة التخصيص سيتغير' 
فى هذه الحالة دون ظهور gi‏ رسائل خطأ. 
Sii 205‏ عند حساب جملة التخصيص التالية 4 * 2 + 3 = ١‏ نحصل على نتيجة هى القيمة 11 نتيجة إجراء عملية 
الضرب أولاً ثم الجمع . بالرغم من أن المطلوب كان إجراء عملية الجمع أولاً ثم الضرب . لذا كان يجب على المبرمج أن 
يضع عملية الجمع بين فوسين كما يلى :- ١‏ 
4 * (2 + 3 ) = 0 وعندها ينفذ ما بداخل القوسين أولاً فتصبح النتيجة 20. E)‏ 
ZE‏ يتم احتساب قيمة التعبيرات الحسابية من المستوى الأعلى فى الأسبقية إلى المستوى الأقل ( أولويات_العمليات' ١4‏ 
الحسابية ) وفى حالة وجود أكثر من عملية لها نفس الأولوية كالضرب والقسمة - أو الجمع والطرح - فإن ترتيب تنفيذها 
يكون من اليسار إلى اليمين وإذا تداخلت الأقواس فإن الأقواس الداخلية يتم تنفيذ ما بينها Ad‏ 


Ki 
False أو لا‎ True ما يكون نعم‎ Laila ناتج التعبير الشرطى‎ 0 p 


© مشال لتوضيح الفرق بين المعاملات الحسابية ( / و | و Mod‏ ) 

: إذا قمنا بقسمة العدد 10 + 3 يكون الناتج كما يلى‎ E 

10/3 = 3 
10 Mod 3 = 1 
1013 3 


a fr‏ ۽ 


Desktop 


-Errors sÛ hS 


عدة أنواع من الأخطاء مأل : 


أنواع الأخطسساء 


أخطاء لفوية أخطاء منطقية أخطاء عند التشغيل 
Runtime Errors Logic Errors Syntax Errors‏ 


` Syntax Errors Ai أخطاء‎ - 

أى أخطاء فى قواعد اللغة وتحدث عند كتابة الكود Code‏ بصورة غير سليمة كما يلى : 

والخطأ هنا أنه تم الإعلان عن المتغير بكلمة خطأ هى Din‏ بدلاً من Dim‏ . 

والخطأ هنا أنه تم الإعلان عن الثابت( (x‏ ولكن لم تخصص له قيمة أثناء الإعلان عنه. 
ZE‏ وتساعدنا Am‏ التطوير IDE‏ باكتشاف والتغلب على هذا النوع من الأخطاء بوضع خطوط زرقاء متعرجة تحت 
الكلمات المحتمل أن يكون بها أخطاء وبالتالى Y‏ تسمح IDE‏ بوجود أى خطأ من هذا النوع. | 
۔ أغطاء منطقية Logic Errors‏ : وتحدث إذا استخدمت تعبيرات_ Expressions‏ بناؤها غير سليم وتحدث فى جمل! 
التخصيص غالباً > مما يؤدى إلى نتائج غير سليمة عند استخدام البرنامج . 

© مثال أثناء كتابة كود مساحة الدائرة وكتبنا الجملة التالية : 

و حدث خطأ وكتبناه بهذه الطريقة: ) 
فعند تنفيذ الكود Code‏ سوف يعمل دون أن يعطى رسالة خطأ ولكن عندها تكون النتيجة منطقياً خطأ وتصبح مغايرة 
للواقع لأنه سوف يتم الجمع بدلاً من الضرب . 

© مثال عند حساب جملة التخصيص التالية 4 * 2 + 3 = 1/1 نحصل على نتيجة هى القيمة 11 نتيجة إجراء عملية 
الضرب أولاً ثم الجمع . بالرغم من أن المطلوب كان إجراء عملية الجمع أولاً ثم الضرب . 

0 وللتغلب على هذا E Al‏ من الأخطاء يجب مراجعة الكود المكتوب جيداً واختبار صحة البرنامج باستخدام بيانات سبق 
التأكد من صحتها ومقارنة النتائج التى نحصل عليها بالنتائج الفعلية وبذلك يمكن أن نكتشف الأخطاء ونقوم بتصحيحها. 


Tess t "ددم‎ 


ا کے حي DÉI DÉI‏ عم ري حت + "E ge‏ 


é REES) 


slasi. ;‏ عند التشغيل Runtime Errors‏ : 
وتحدث فى جمل التخصيص غالباً فمثلاً عند تخصيص قيمة أكبر من مدى نوع البيان Data Type‏ المستخدم › 
أو تخصيص قيمة من نوع بيان يختلف عن نوع بيان المتغير أو الثابت أو الخاصية ولا يستطيع مترجم اللغة TL‏ 
Compiler‏ تحويلها لنوع البيان Data Type‏ المناسب. , hé‏ 
KA Se‏ 


Runtime E Errors يؤدى إلى توقف البرنامج وظهور رسالة خطأ أثناء التشغيل‎ gaer مختلف عن الآخر‎ ec) 
Dim Radius As Byte شال‎ © bg 
و حدود هذا النوع تبدأ من‎ Byte بأنه عدد صحيح‎ Radius فى جملة التعريف الأولى تم تحديد نوع البيان للمتغير‎ 
التخصيص الثانية خصصنا قيمة رقمية صحيحة هى 600 للمتغير الرقمى‎ ila الصفر وتنتهى عند 255» وفى‎ 
مما يؤدى إلى توقف البرنامج‎ i Byte الرقم 600 تعدى حدود مدى نوع البيان‎ OH وه ذ لا يجوز‎ Radius ° 
ومعنى هذا أنه يجب على مستخدم البرنامج أن يلتزم بحدود تلك‎ „Runtime Errors وظهور رسالة خطأ أثناء التشغيل‎ 
القيم عند إجراء التخصيص لهذه المتغيرات.‎ 


GE 
7 
1 أسئلة كتاب الوزارة (الفصل الأول)‎ 
0 ين‎ 
ظ‎ 
١ 


Boolean منطقى‎ Textbox صندوق نص‎ | Š 


الشنلوع | Radiobutton At)‏ رقم صحيح Integer‏ شى 


4 
E SES 


gm t fD 


آل ا ا 


© تدريب 2 اكمل الجدول مستعينا بالشاشة القالية ٠‏ بعاقة طالب í‏ 
ا | Au‏ | يستخدم فى w‏ رقم الجلوس 10001 
ش إدخال Ota‏ | ون BS‏ 
WII‏ النحكم Gute‏ اسم الطالب أنس أحمد الشهاوى 


تاريخ الميلاد 12/12/2016 


المجموع الكلى 399 
aal © bab‏ 
صورة الطالب 


ملف الصورة 


Aa? A‏ لغة VB.NET‏ بالتعامل مع أنواع مختلفة من البيانات. 

يؤْخذ على لغة VB.NET‏ التعامل مع أنواع مختلفة من البيانات. 

جميع البيانات التى يتم إدخالها فى برنامج بلغة VB.NET‏ يتم تخزينها مؤقتا فى ذاكرة الكمبيوتر. 
جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية. 

المبرمج الجيد الذى يُحسن ترشيد المساحة التخزينية فى ذاكرة الكمبيوتر. 

يصنف قيمة مجموع درجات الطالب ضمن البيانات الرقيمة الصحيحة. 

يصنف قيمة اسم الطالب ب ضمن ن البيانات الرقمية المتنوعة. 

يصنف قيمة نوع الطالب " ذكر " أم " أنثى " ضمن البيانات المتنوعة المنطقية. 

صورة الطالب يمكن تصنيفها ضمن البيانات الحرفية. 

0 قيمة مرتب الموظف يمكن تصنيفها ضمن البيانات الرقمية الغير صحيحة. 

JS -11‏ بیان يخزن فى ذاكرة الكمبيوتر يشغل مساحة تخزينية ومدى معين حسب نوع البيان. 

2 نوع البيان يُحدد حيز التخزين الذى يشغله فى ذاكرة الكمبيوتر و معرفة الحد الأدنى والأقصى لقيمته. 
3 يقصد بالمتغبرات فى لغة VB.NET‏ مخازن بذاكرة الكمبيوتر لها اسم ونوع . 

4 الإعلان عن متغير فى لغة VB.NET‏ يعنى تحديد اسمه و نوع البيانات. 

5 الإعلان عن المتغبرات فى لغة VB.NET‏ يساعد فى ترشيد استخدام ذاكرة الكمبيوتر. 

6 الإعلان عن المتغبرات مسألة شكلية , لأن VB.NET AA‏ تتعرف على المتغيرات وتحدد نوعها GU‏ . 
7 الجملة الثالية Dim E name As String‏ للإعلان عن متغير باسم String‏ ونوعه E name‏ 
8 الجملة Dim E name As String AG)‏ للإعلان عن متغبر باسم String Aeaig E Dame‏ 
9 جملة الإعلان عن المتغيرات يتحدد فيها اسم المتخبر ونوعه. 


Ces t fD 


I 


lo bo tı bh نا ناذا عا‎ 


375 -- ا‎ -- ER 


5-4 


0 جملة الإعلان عن المتغبرات يتحدد فيها اسم المتغير و deg)‏ وقيمته DI‏ 
55City 1‏ يعتبر اسم متغير bé‏ لأنه يبدأ برقم. 

Aa 55City 2‏ اسم متغير صحيح. 

3 يستخدم أمر DIM‏ للإعلان عن المتغيرات. 

4 يستخدم Dim Al‏ للإعلان عن الثوابت. 

5 يستخدم أمر 0151© للإعلان عن المتغيرات. 

6 يستخدم Const Al‏ للإعلان عن الثوابت. 


7 الثوابت فى لغة VB.NET‏ عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم و قيمة لا تتغبر أثناء سبر البرنامج. 
8 الثوابت فى لغة VB.NET‏ عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم و قيمة تتغير أثناء سبر البرنامج. 


9 الخطأ فى نتیجة حساب أى معادلة يعتبر bé‏ لغوى „Syntax Error‏ 
0 الخطأ فى ننيجة حساب أى معادلة يعتبر خطأ منطقى „Logical Error‏ 


21 الخطأ GAN‏ يظهر أثناء تشغيل أو تنفيذ برنامج VB.NET‏ يطلق عليه خطأ لغوى „Syntax Error‏ 
2 الخطأ الذى يظهر أثناء تنفيذ برنامج VB.NET‏ يطلق عليه خطأ أثناء التشغيل „Runtime Error‏ 
3 القيمة النهانية للمتغير X‏ بعد تنفيذ المعادلة التالية 4 * 2 + 3 =× هى (11). 

4 القيمة النهائية للمتغبر × بعد تنفيذ المعادلة الثالية 4 * 2 + 3 = × هى (20). 


( رقمية صحيحة - رقمية غير صحيحة — 
حرفية - رقمية غير صحيحة — deng‏ ). 


ر حيز تخزينى ومدى Mag‏ - اسم وحيز نخزینی - حيز نخرينى وقيمته ) 


قيمة أسعار الأدوات المكتبية يمكن تصنيفها كبيانات : 
قيمة أسماء المواد الدراسية يمكن تصنيفها كبيانات: 
نوع البيان Däin GAN‏ فى ذاكرة الكمبيوتر يحدد: 


: هى‎ Salary الصيغة الصحيحة للإعلان عن متغير المرتب‎ 
«Dim Salary As Decimal — Dim Salary As Byte - Dim Salary As Integer ١ 

` هى‎ City الصيغة الصحيحة للإعلان عن متغير العنوان‎ 
(Dim City As Decimal — Dim City As Byte — Dim City As String ( 

6- الصيغة الصحيحة للإعلان عن متغير الاسم E Name‏ هى : 


السؤال الثانى ` اختر الإجابة المناسبة Jet?‏ كل عبارة مها يلى : 


| (Dim F_Name As Decimal - Dim E Name As String — Dim E Name As Integer ) 


7- الصيغة الصحيحة للإعلان عن متغير النوع Gender‏ هى : 


(Dim Gender As Boolean - Dim Gender As Integer - Dim Gender As Decimal ١ 


8- الصيغة الصحيحة للإعلان عن متغير الاسم E Name‏ ھی : 


(Din E Name As String — Dim Name As String — Dim E Name As char) 


(Runtime Error — Logical Error - Syntax Error )‏ 
الخطأ الذى يظهر أثناء كتابة كود بلغة VB.NET‏ يسمى : 


(Runtime Error - Logical Error — Syntax Error) 
` يسمى‎ VB.NET الخطأ فى ناتج تشغيل برنامج بلغة‎ 
(Runtime Error — Logical Error — Syntax Error ) 


الناتج النهائى للمتغبر X‏ للمعادلة 4 * 2 + 3 = ×هو: 
)11 - 24 - 20( 


97 gege gëf? iin Ze و‎ — Deg ÉI 
E 


fa» t fam 


9- الخطأ الذى يظهر بعد تشغيل برنامج بلغة VB.NET‏ يسمى ` 


-10 


-11 


-12 


330 -- e Eas as TO -- aea a aa :3-س‎ 


آل ات اا 


13- الناتج النهائى للمتغبر Y‏ للمعادلة 4+2 / 12 - 16 - ۷هو: 
)3 11 - 15 ) 
` 14- جملة الإعلان عن متغير DiM X As String‏ تعنى الإعلان عن : 
y‏ (متخيراسمه X‏ ونوعه حرفى -String‏ متغبر اسمه String‏ ونوعه -X‏ متغبر مجهول ليس له اسم ونوعه (String‏ 
Y‏ 15- جملةالإعلان الصحيحة عن متفير رقمى غير صحيح Y daul‏ هى : 
As Decimal)‏ لا (Dim Y = Decimal - Y As Decimal - Dim‏ 
16- اختر الاسم الصحيح للمتغير اسم الطالب: 
(name ** - st name - st name)‏ 
17- اختر الاسم الصحيح للمتغبر عنوان الموظف: 
Address -  E-Address _  5Cairo)‏ ( 
18- عند الاعلان عن الثابت الرياضى ط نستخدم الكود: 
Dim Pi As Single - Dim Pi As Single = 3.14 - Const Pi As Single=3.14 )‏ 8 
19- عند الاعلان عن ثابت عجلة الجاذبية الأرضية نستخدم الكود: 
(Dim g As Single - Dim g As Single =9.81 - Const g As Single=9.81 )‏ 
20- الإعلان عن متغبر عدد أفراد الأسرة C Family‏ بقيمة ابتدائية 2 هو : 
(Dim C_Family As Integer=2 - Const C_Family As Integer=2 - Dim C_Family As Single=2)‏ 
21- إذا وجد خطأ فى ننيجة حساب مساحة مستطيل فى برنامج بلغة VB.NET‏ يعتبر هذا الخطأ : 
(Runtime Error — Logical Error — Syntax Error )‏ 
22- رسالة الخطأ التی تظهر عند كتابة الكود Dimension X As Byte‏ يمكن تصنيفها خطأ : 
(Runtime Error — Logical Error — Syntax Error:‏ 
23- الناتج النهائى للمتغير Y‏ للمعادلة 2 / 4 + 2- 12 - / هو : 
)12 - 7 -9( 
24- الناتج النهائى للمتغبر Y‏ للمعادلة 2 / (4 + 2 )- 12 - لاهو : 
) 12 - 7 - 9( 


نرقبو| 
مراجعة Desktop‏ 
فى ليلة الامتحان 
للصف الثالث الاعدادى 
مع ubl‏ التمنياث بالنجاح و التوفيق 


أ/ أحمد الشهاوى 


التسسرم الثسانى 20018 


wë, 
roS 
D 


a آل‎ 


الفصل الشانى : الشفرع Branching‏ 


V باختيار تنفيذ مجموعة خطوات بناء‎ A.A وخطوات الحل انه يمكن التفرع واتخاد‎ Flow Chart درست فى خرائط التدفق‎ ER. 
E ولكن‎ Algorithm الخاص ع ی خطوات الحل‎ Code على سوال معين » وسوف نجد أن كتابة الكود‎ ` 
* Lao اللغة المستخدمة‎ SE 


.) mee selections الأوامر(أحادية الاختيار‎ 


| If ... Then الصيغة العامةلجملة‎ 


If Conditional Expression التعبير الشرطى)‎ ) Then 


الأوامر التى ستنفذ فى حالة ما يكون ناتج هذا 
الشرط صواب True‏ 


:Conditional Expression åa pá E 

o‏ التعبير الشرطى هو جزء من كود Code‏ البرمجة يكون ناتجه دائماً إما صواب True‏ أو خطأ False‏ وذلك بناء على 
قيمة خاصية Property‏ أو متغير Variable‏ أو بيان آخر بالبرنامج ( قيمة مجردة ). 

. هو الشرط أو التعبير الشرطى‎ If مايكتب بعد‎ e 

I حتى الوصول‎ Then sï Al Code يتم تنفيذ الأوامر‎ True صواب‎ SC وفى حالة ما يكون ناتج هذا‎ o 
. End If إلى‎ 

. End If يتم تنفيذ الأوامر التى تلى‎ False ما يكون ناتج هذا الشرط خطأ‎ illa وفى‎ o 


Conditional Expression التعبير الشرطى‎ 


M 
= 
& 
1 
بعد علامة المقارنة معلامات المقارنة قبل علامة المقارنة مثال للتعيير الشرطى‎ ١ ) 
ا‎ 
7 


TE Fidia 


م 
"e 50‏ 
Bi‏ 


IfA>5 
IfA<5 


>< لا يساوى Variable‏ ا 
= <أكبرمن أويساوى Or‏ م -< If B‏ 
0 2* 3+ 8-2 ]| 
قيمة من تعبير يساوق Constant‏ 2* 8-3 <>ع ]| 
Expression‏ ” 
fA^2=B/C‏ 


GOU الشرطى‎ wall 
100 > < 0 
300 > < 0 


False‏ حيث أن القيمتين متساوينين. 
True‏ حيث أن القيمتين غير متساويتين. 


Degree تساوى محتوى المتغير‎ TextBox1 للأداة‎ Text كان قيمة الخاصية‎ DU True tj 


Degree = TextBox1.Text 


أو False‏ إذا كان قيمة الخاصية Text‏ للأداة TextBox1‏ لا تساوى sgia‏ المتغير Degree‏ 


j 
K 
© 


2 : التسرم الثانى 2018 


SSES) 


© تدريب 1: حريطة ندفق لطباعة aok‏ نا جخ إذا كانت الدرجة اطدخلة péi‏ من أو تساوى 50 . 


If X>=50 Then ڪڪ‎ 
MsgBox(" ("ناجح‎ q الرسالة‎ 


=50 Print" sep" 


۶ = 


لاحظ ` يمكن كتابة جملة Then‏ ..... 1£ على سطر daly‏ بدون كتابة 1£ End‏ كالتالى : 


If X>=50 Then MsgBox (" ناجح‎ ") 


ZE‏ ناتج التعبيرات الشرطية دائماً ما يكون إما صواب True‏ أو خطأ False‏ ويتوقف على العلاقة بين الطرفين. 

5 لا يجوز أن نقارن بين قيم أنواع بيانات مختلفة قد لا يستطيع المترجم Compiler‏ تحويلها إلى أنواع بيانات متوافقة 
مثل "Ahmed"‏ = 5 ولكن يجوز إجراء هذه المقارنة "5" = 5 ٠‏ حيث يستطيع المترجم Compiler‏ تحويل gail‏ "5" 
إلى نوع بيان عددى متوافق مع القيمة العددية 5 ثم يقوم بالمقارنة وهذا ما يسمى بالتحويل الضمنى. 

V لا يجوز أن نقارن بين قيمة عددية وقيمة حرفية وقيمة منطقية وقيمة تاريخية لأنهم من أنواع مختلفة قد لا يستطيع‎ SA 
تحويلهم إلى أنواع بيانات./‎ Compiler تحويلها إلى أنواع بيانات متوافقة إلا إذا استطاع المترجم‎ Compiler ez) 
متوافقة بالتحويل الضمنى.‎ 

ZE‏ فى الكود Then‏ 50 =× 1۴ المعامل يساوى = ليس معامل تخصيص ولكنه معامل مقارنة. 

جر فى الكود 7-50 المعامل (يساوى = ) هو معامل تخصيص. 

© تدريب 2: قم بتحويل حريطة النرفف لعمل wy‏ لعملية قراءه asy‏ طالب فى ماده اللعة العربية طعرفة ما إذا كان 
as H‏ علماً ob‏ النهاية الصغرى للنجاخ هى 50 وذلك jabl‏ صندوق رسالة MsgBox‏ به ثلمة اجه d‏ 


چو 
o‏ 


1- بداية. 


2- ادخل Aa A‏ طالب فى مادة اللغة العربية „X‏ 


Print" sep" 
طباعة "ناجح".‎ 1-3 


4- نهاية. 


Beggen 


9 
3- إذا كان 50=<× إذن: ? 


Desktop‏ | ظ الصف النسالت الإعسدادى ص0 
الل 
1- يتم إنشاء و تصميم مشروع يحتوى على نموذج Form‏ كما تعلمنا فى الفصل الدراسى الأول . 
2- ثم قم بكتابة كود Code‏ البرمجة الخاص بزر ( النتيجة ) باستخدام إجراء الحدث Button), Click‏ كما يلى : 5 / 


Private Sub Button1l_Click 


Dim X As Single 
Me.Textbox1. Text 


If X >= 50 then 


) 
wl Ena If | 
End Sub l 
من لوحة المفاتيح.‎ ) F5) شغل البرنامج بالضغط على‎ A 


MsgBox ("ناجح")‎ 


. ) 55 & 50 & 20 ( القيم‎ BA A 

E‏ نلاحظ عند تشغيل البرنامج عدم ظهور صندوق الرسالة Ae Magbon‏ إدخال أى قيمة أقل من 50 لأنه سيكون ناتج 
الشرط 50 =< X‏ هو خطأ False‏ ولن ينفذ أى شئ من جملة ۴| ثم يتم تنفيذ الأوامر التى تلى End If‏ وهو 
End Sub‏ أى إنهاء الإجراء .Procedure‏ 


E‏ يمكن كتابة الكود Code‏ السابق كما يلى حيث ستكون جملة If‏ فى سطر واحد وعندها لا يتم كتابة أمر End If‏ كما 
يلى: 
Private Sub Buttonl Click‏ 

Dim X As Single 


E = Me.Textbox1 . Text 
: If X >= 50 then MsgBox ("ناجح")‎ 
01 


End Sub 


: If... Then ... Else ... جملة‎ 


وهى من أوامر التفرع لاختيار بديل واحد من بين بديلين أو مجموعة من مجموعتين من الأوامر( ثنائية الاختيار, 
أو Double Selection‏ (. -= ے 
الصيغة العامةلجملة ... If... Then ... Else‏ 


SSES) 


5 مايكتب بعد If‏ هو الشرط أو التعبير الشرطى وفى حالة : 
1 - مايكون ناتج هذا الشرط صواب True‏ يتم تنفيذ الأوامر 1 م التی تلى Then‏ حتى الوصول إلى Else‏ ثم يتم 
تنفيذ الأوامر 2 تلى End If‏ . 

vi -2 6‏ حالة ما يكون ناتج هذا الشرط خطأ False‏ يتم تنفيذ الأوامر 600162 التى تلى Else‏ حتى الوصول لى | 
End Ad‏ ثم يتم تنفيذ الأوامر التى تلى End If‏ . 
© _تدريب 3 قم بتحويل خريطة الندفق الثالية كما Wiw‏ فى الفصل الدراسى الأول لعمل برنامخ لعملية قراءة درجة 
طالب فى مادة اللغة العربية طعرفة ما إذا كان ناحِحاً أو راسباً علماً ob‏ النهاية الصغرى للنجاخ هى 50 وذلك بإظهار 
صندوق رسالة MsgBox‏ به U as‏ & أو راس $ 


Print" راسب‎ " Print" sep" 


يتم إنشاء و تصميه مشروع يحتوى على نموذج Form‏ كما تعلمنا فى الفصل الدراسى الأول 2 ثم كتابة كود Code‏ 
البرمجة الخاص بزر ( النتيجة ) باستخدام إجراء الحدث Button), Click‏ كما يلى ` 


Dim X As Single 
X = Me.Textbox1. Text 
If X >= 50 then 


E ا‎ äi 


MsgBox ("ناجح")‎ 
Else 

MsgBox )"ر اسب"(‎ 
End If 


| ملاحظات هامة : 
25 كلمة Else‏ تعنى تنفيذ ما بعدها إذا كان ناتج الشرط خطأ ©215]. 
5 إذا کان ناتج التعبير الشرطى صحيحاً True‏ سيتم تنفيذ الأوامر التى تلى كلمة Then‏ و ستظهر رسالة بها كلمة 


زلا ناجح". 

ZE‏ أما إذا كان ناتج التعبير الشرطى خطأ False‏ سيتم تنفيذ الأوامر التى تلى كلمة Else‏ و ستظهر رسالة بها كلمة 
kia LU‏ 

. Dim X As Integer إلى‎ Dim X As Single جل إذا تم تغيير الجملة‎ 


وقمنا يإدخال درجة للطالب هى 49.51 فسيكون الناتج هو ظهور صندوق رسالة " الطالب ناجح " بالرغم من أن الدرجة 
أقل من 50 » وحدث ذلك نتيجة أن المترجم Compiler‏ قام بعملية التحويل الضمنى بالقيام بتقريب العدد العشرى 
° ) 49.51( إلى أقرب عدد صحيح وهو العدد 50 . 


"ees e f 


آل ات ا 


25 يمكن کتابة الكود Code‏ السابق كما يلى حيث ستكون جملة If‏ فی سطر واحد وعندها لا يتم كتابة أمر End If‏ 
كما يلى: 


Dim X As Single 5 
Me .TextBox1 .Text EN 
If X <-50 Then ("ناجح")ياهم8ع15/‎ Else MsgBox(" )"ر اسب‎ fH e 


: 3 تدريب‎ D 
و إظهار‎ N فى امنغير‎ laij? على نموذج يستقبل قيمة من خلال صندوق نص ثم ینم‎ Gois Project مشروع‎ uiis قم‎ 
.MsgBox فى صندوق رسالة‎ " CIÒ عبارة " الرقم زوجى " أو " الرقم‎ 


lic C1 Pom) D vil 
EH H نوع العدد زوجى آم فردى‎ lola) | 
Private Sub ٍ : 


) 
0 1 Ké 
' || Button1_Click (ByVal ۰ ۰ ! 
Dim N As Long أدخل العدد‎ ] 
Me.TextBox1. Text : ا‎ 
If N Mod 2 = 0 Then Geesse 
2 MsgBox ("jىجوز ("العدد‎ : éi 
) 
3 


Else 
MsgBox ("٦“درف ("العدد‎ 
End If 
End Sub 
End Class 


N Divisible by 2 


Print" العدد فردى‎ " No Yes Print" العدد زوجى‎ " o? 


تستخدم عندما يكون التفرع معتمداً على قيمة متغير Variable‏ واحد فقط . وهى تجعل الكود Code‏ مبسط ومفهوم؛ 
وواضح . وهى تستخدم فى حالة وجود احتمال للتفرع أو أكثر. 
ZE‏ تستخدم Select Case Jg.‏ عندما يكون التفرع معتمدأ على أكثر من تعبير شرطى. 
تعتمد جملة Select Case‏ فى تفرعها على أكثر من قيمة Value1)‏ و Value2‏ و Value3‏ 
و .... ) ويعتمد غالباً على مقارنة هذه القيم بقيمة متغير وحيد variable‏ أو قيمة خاصية واحدة › حيث يتم الآتى : 
p‏ 1-فى أمر Case valued‏ إذا كان قيمة المتغير variable‏ فى مجال أو حدود القيمة الأولى el Valuel‏ 
صواب True‏ يتم تنفيذ الأوامر 600161 الأولى ثم يتم الانتقال إلى جملة End Select‏ 
2 - وفى illa‏ ما يكون قيمة المتغير variable‏ ليس فى مجال أو حدود القيمة الأولى False si Value1‏ يتم الانتقال 
إلى أمر Case value?‏ فإذا كان قيمة variable Aid‏ فى مجال أو حدود القيمة الثانية Nalue?‏ أى صواب 
True‏ يتم تنفيذ الأوامر Code?‏ الثانية ثم يتم الانتقال إلى جملة End Select‏ 
3 — وهكذا ..... فإذا لم يتحقق أى من العمليات المنطقية السابقة (إذا لم تكن قيمة المتغير مساوية لأي من القيم اث 
Qe‏ حتماً يتم تنفيذ الأوامر 0064© التى تلى Case Else‏ الأخيرة ثم يتم الانتقال إلى جملة End Select‏ 


PD fr 


ص العصدف الا لت الا GC Sidhis‏ 


Select Case الصيغة العامة لجملة‎ 
Select Case variable 
(AN Case valuel 
Wi Code1 
Case value2 
Code2 
Case value3 
Code3 
Case Else 
AN Code4 > 
اا‎ End Select Ad 
ثم النقر على الزر اخنبار يعرض فى'‎ Textbox1 uaill San تدريب 4 : الططلوب عند إدخال درجة الحرارة من خلال‎ © $ 


ole Label2‏ " قوق الصفر " أو عباره " Colu‏ الصفر " أو "aLe‏ حت الصفر " لو <اولنا رسم خريطة التدفقف 
اطتوافقة م6 le Select... Case‏ بالشكل الال : 


H 
| Output ell Gei " Output '' فون الصفر‎ " ) 
A á A ) 


يتضح من Aa‏ السابقة إمكانية التفرع إلى أكثر من Cep A‏ من خط الإتجاه الخارج من رمز اتخاذ القرار حيث يحتوى رمز اتخاذ 
القرار على سؤال عن قيمة المتغير D‏ » وحسب قيمته نتفرع إلى 3 أكواد Codes‏ مختلفة » وعلى هذا يكون الكود كما يلى: 
‚Public Class 1‏ 
١ Private Sub Buttonl Click (ByVal...‏ 
Dim Degree As Single‏ 
Try‏ 
Degree = Me.TextBox1 . Text‏ 
Select Case Degree‏ 
Case 0‏ 
الحرارة تساوى الصفر" = Me Label? Text‏ 


Case Is > 0‏ 
الحرارة فوق الصفر" Me.Label2.Text‏ 
الحرارة تحت الصفر" 


Case Is > 0 
Me Label2. Text 


End Select 

Catch ex As Exception 
MsgBox ("iJi ("ادخل عدد فى صندوق‎ 
Me.TextBox1. Focus )( 
Me .TextBox1.Text = "" 

End Try 
End Sub 
End Class 


I = fr 


EE EN 


ال شع 


ZE‏ نلاحظ فى هذا الكود عرض صندوق MsgBox Huj‏ يطالب المستخدم بإدخال عدد Hu‏ من قيمة حرفية أو قيمة 
حرفية خالية فى صندوق النص TextBox1‏ 


ZE‏ نلاحظ استخدام وسيلة Method‏ هی Focus()‏ خاصة بصندوق النص 76480171 » وهى تعنى نقل التركيز' 


¥ ( ووضع مؤشر الكتابة بداخل صندوق النص .TextBox1‏ 


٠ نلاحظ استخدام الكود " " = )ير 1. 17180121 1/6.71 وهو يعنى تخصيص القيمة " " أو السلسلة النصية الفارغة‎ SE 


للخاصية Text‏ للأداة صندوق النص 7617480171( افراغ صندوق النص من محتواه ). 


© تدريب 5 : من دراستك طاده الجعرافيا wäll anki‏ من اطفاهيم div‏ مجرہ — كوئب — قمر — جم - du‏ شهاب » قم 
بإشاء مشروع Gois‏ على النمودخ du‏ < و المططلوب اكب الكود اللازم cus‏ عند احثيار pae Gi‏ فى مربع vull‏ 


| ComboBox 


| Textboxi 


والسرد يظهر تعريفه فى صندوق النص. 


Formi bala) 
- قاتمة المفاهيم الكونية‎ 


AN 


جسم مححم Ya leso pN‏ حرارةقء ويسعمد osgo‏ 
وحرارته من تجحم قريب Ano‏ 


- لجعل مربع النص 1م7648 يعرض المعلومات على أكثر من سطر نغير قيمة الخاصية Multiline‏ إلى True‏ من 


نافذة الخصائص. 


- فى هذا التدريب استخدمنا أداة التحكم 01008601© لعرض عناصر ) مفاهيم ) الجغرافيا وتم إضافة هذه 
العناصر ( مجرة - كوكب - قمر - نجم - نيزك - شهاب ) من خلال الخاصية Items‏ من نافذة الخصائص فى نمط, 


ا / التصميم. 


` 3- اكتب الكود التالى فى إجراء الحدث SelectedindexChanged‏ الخاص بالأداة .ComboBox‏ 


"public Class Forml 


Private Sub ComboBoxl_SelectedIndexChanged (ByVal sender As 
Select Case Me.ComboBox1.SelectedIndex 


Case 0‏ 
" تجمعات كببرة من النجوم المختلفة الأحجام والأشكال والأنواع" = Me. TextBox1.Text‏ 
Case 1‏ 
5 جسم معتم لا يشع ضوداً ولا حرارة ويستهد osya‏ وحرارته من نجم قريب منه" = Me. TextBox1.Text‏ 
Case 2‏ 
Case 3‏ 
" جسم مضئ ملتهب يشع ضود وحرارة" = Me. 1623288031 Text‏ 
Case A‏ 


" جسم صلب كببر يحترق جزئياً عند احتكاكه بالغلاف الجوى" = Me . TextBox1.Text‏ 


Case 5 


Me . TextBox1.Text 


Case Else 


" جسم سماوى صلب يسبح فى الفضاء حول الشمس ويجرى فى السماء على هيئة سهام ضوئية " 


( "يرجى اختيار أحد المفاهيم " ) MsgBox‏ 


End Select 
End Sub 
e Class 


PED 


a 
Me. 16226180321 . fest = " جسم معنم أصغر حجماً من الكوكب يرتبط به بفعل الجاذبية ويعكس ضوء الشمس الساقطة عليه‎ " $ 


fr f ER? 


Desktop 


الصف الفسالث الإعسدادى ص 


e‏ تم إضافة عناصر Items‏ الأداة 1 001108 في نمط التصميم من خلال الخاصية Items‏ من نافذة الخصائص. 

0 بحيث يكون العنصر الأول ترتيبه‎ » Index كل عنصر يتم إضافته للأداة 0×1 6017019 له ترتيب أو فهرس‎ e 
والثانى 1 وهكدا.‎ 

٠ |‏ وبالتالى يتم معرفة ترتيب أو فهرس Index‏ العنصر المحدد Selected‏ من خلال الخاصية Selectedindex‏ | 

.ComboBox1 AU ` 


ه تم كتابة الكود السابق في إجراء الحدث SelectedindexChanged‏ الذى يعنى عند حدوث تغير الفهرس Index‏ 
المختار > أى ترتيب أو فهرس العنصر المحدد » وهو الحدث الإفتراضى للأداة 1 ويتحقق هذا الحدث 
عند تغير اختيار عنصر من palis‏ الأداة .ComboBox1‏ 

.۴5 نفذ البرنامج من خلال الضغط على مفتاح‎ A 


5- اختر أى عنصر من مربع التحرير و السرد و تأكد من تعريفه. 


أسئلة كتاب الوزارة (الفصل الثانى) 


If X >= 50 Then 
Msgbox (”ناجح”)‎ 


2- إذاكان قيمة 50 = × فإن ناتج تنفيذ الكود هو EAEE SE EET‏ 
3- إذاكان قيمة 62 = × فإن ناتج تنفيذ الكود هو ER d‏ 


„If Conditional Expression ) التعبير الشرطى‎ ( Then Code1 Else Code 2 

Ty .)0( إذا كانت أقل من‎ Y اكتب تعبير شرطى يختبر قيمة المتغير‎ m1 
0 استبدل 60061 فى الصيغة العامة بكود يظهر نص " الرقم سالب " فى صندوق رسالة.‎ -2 
e انه إذا تحقق التعبير الشرطى يتم تنفيذ‎ ) If... Then .... Else ) يظهر من الصيغة العامة لجملة‎ -3 
و إذالم ا ن ا‎ 


End if‏ ص 
1- يتم إظهار صندوق الرسالة و عليها gal " gaill‏ " عندما Ee‏ 


Private Sub Buttonl Click 
Dim X As Single 
X = Me.Textbox1.Text AN asyl Laaf 
If X >= 50 then 
Awm 
MsgBox ("ناحج")‎ | aw [ 
End If 


الغرض من البرنامج هو 
يتم تنفيذ الكود إذا وقع الحدث 


1 حم‎ 33 aere 


. هى 1 فهذا يعنى تحديد العنصر الثانى‎ Selectedindex وبالتالي عندما تكون قيمة الخاصية‎ e WA 


i‏ الصف الثسالث الاعسدادى ص 


: اكمل الجدول التالى بالكود اللازم مستعيناً بالصيغة العامة للجملة الشرطية: 


۹ If .... Then ..... Else 
4 


“If Conditional Expression Then 
Code1 

Else 
Code2 


End If 


Dim X As Single 
Me .Textbox1.Text 
If X >= 50 then 
MsgBox (">L") 
Else 
MsgBox ("awl") 
End If 


السؤال السادس: اجب عن الأسئلة بعد دراسة الكود الثالى: 
1- عدل الكود بحيث يظهر النص " الرقم زوجى " فى مربع 
عنوان Label?‏ و يظهر gaill‏ " الرقم فردى " فى مرجع ege . Text‏ 
عنوان صندوق Yi Label?‏ من صندوق رسالة. If N Mod 2 = 0 Then‏ 
2- استبدل نوع المتغير N‏ ليصبح ee? Integer‏ زوجي" BO‏ 


Else 
MsgBox ("العدد فرد“"(‎ 
End If 


7 [إعداد آ/ تخد انا freeen ër f‏ 


i fe‏ الصف الثسالث الإعسدادى ١‏ ص0 


1 الکود التالى يستقبل أى رقم من صندوق نص , ويقوم بتخزينه فى pia‏ ثم یختبر قيمته DÉI‏ كان العدد زوجى يظهر 
P,‏ مربع رسالة بذلك Wa,‏ كان عدد فردى يظهر مربع رسالة بذلك. 
a el‏ 8 3 
A‏ المطلوب : اعد كتابة الكود بعد اكتشاف الأخطاء الثلاثة و تصويبها ليكون ناتج تنفيذه صحيحا. 


Dim X As Integer 
Me . TextBox1 . Text 
If N Mod 2 = 
MsgBox ("العدد زوجى")‎ 
Else 


MsgBox ("6s 3j ("العدد‎ 


ن الأسئلة بعد دراسة الكود التالى: 
Private Sub Buttonl_Click (ByVal...‏ 
Dim Degree As Single‏ 
Try‏ 
Degree = Me.TextBox1 . Text‏ 
Select Case Degree‏ 
Case 0‏ 
"درجة الحرارة تساوى الصفر" = Me . Label2.Text‏ 
Case Is > 0‏ 
Me.Label2. Text‏ 
Case Is < 0‏ 
Me.Label2.Text‏ 


"د رجة الحرارة فوق الصفر" 


"درجة الحرارة تحت الصفر" 
End Select‏ 


Catch ex As Exception 
MsgBox (ai JI ("ادخل عدد فى صندوق‎ 
Me . TextBox1. Focus )( 
Me.TextBox1. Text = "" 
End Try 
End Sub 


إستخدام Try ..... Catch‏ بالكود إثرائى 
1- الغرض من الكود هو 0999995 ”غ32 
2- إذا علمت أن 3- = Dgree‏ يظهر صندوق الرسالة به النص : 111 1*0( 
3- ينم تنفيذ الكود عندما يقع الحدث ........................... على أداة التحكم Ee‏ 


T هو ا‎ Degree نوع المتغير‎ A 


ben BEER 


) الفصل الشالث : الشكرار و الإجرادات Looping & Procedures‏ 


: For ..... Next استخدام الجملة‎ : Yil SAME. S 
is Bn: الغنه محدة من العراك‎ Code كود‎ E Er Ger SA التكراز‎ aA 
Mi 


| الصيغة العامة لهذه الجملة 


For Variable = Start Value To End Value Step Add Value 


Next ) Variable) 
لم تتخطى قيمة نهاية‎ Aal ويستمر التكرار طالما قيمة‎ Next وتنتهى بكلمة‎ For يبدأ الإعلان عن الحلقة التكرارية بكلمة‎ 
: For ويحدد مع‎ End العداد‎ 
.) الحلقة نوع بيانه عددى ( صحيح أو غير صحيح‎ Counter يطلق عليه متغير عداد‎ Variable اسم متغير‎ - 1 
. وتكون عددية (صحيح أو غير صحيح)‎ Start Value والعداد له قيمة بداية‎ — 2 6 
.) وتكون عددية ( صحيح أو غير صحيح‎ End Value ص0 ركه له قيمة نهاية‎ 
التى يزيد بها العداد حتى يصل إلى قيمة النهاية.‎ Add Value قيمة زيادة العداد أو القيمة‎ A 
„Next ونهايتها‎ For المراد تكراره لعدد محدد من المرات ويكون بين بداية الحلقة التكرارية‎ Code ei -5 


«إذا كانت قيمة زيادة العداد موجبة ( 1 ) › فإنه يمكن الإستغناء عن كتابة Step Add Value‏ بإعتبار AO‏ 
القيمة الافتراضية لزيادة العداد موجب ( 1 ) . 


#كتابة اسم Variable Aia‏ العداد بجوار Next‏ اختيارية. 


التسرم الثانى 2018 


J|‏ ات د 


2- إسنعن بالخريطة و الكود الثاليين:- 


“Public Class Forml 
Private Sub Buttonl Click (ByVal 
Dim M As Byte 

For M = 1 To 3 


ا و د ا 


MsgBox (M) 
Next 
End Sub 
End Class 
: كما هو موضح بالجدول التالى‎ Code يمكن تتبع سير الكود‎ 305 
ناتج صندوق‎ ef 


— o . Byte تعريف المتغير اللا من نوع عددى صحيح‎ | Dim M As Byte 
بقيمة‎ M عدادها المتغير‎ For جملة الحلقة‎ Ee بداية الإعلان‎ 5 


1 M إظهار مربع رسالة بقيمة المتغير‎ MsgBox (M) 
: والتى تقوم‎ For نهاية جملة الحلقة‎ 
M=M+1 بواحد‎ M بزيادة عداد الحلقة‎ - 1 


2 EA M إظهار مربع رسالة بقيمة المتغير‎ MsgBox (M) 
: والتى تقوم‎ For نهاية جملة الحلقة‎ 


1 - بزيادة عداد الحلقة M‏ بواحد M=M+1‏ 
Next‏ 


2 - هل قيمة M‏ أكبر من قيمة النهاية. 
(False) -3‏ 


3 3 إظهار مربع رسالة بقيمة المتغير الا‎ MsgBox (M) 
: والتى تقوم‎ For الحلقة‎ ila نهاية‎ 

1 - بزيادة عداد الحلقة M‏ بواحد M=M+1‏ 
2 هل قيمة M‏ أكبر من قيمة النهاية. 

(True) -3 


Next 


e ع‎ X 


: هى‎ Next فى الجدول السابق نجد أن وظيفة الأمر‎ Code من تتبع الكود‎ ZE 
فى كل مرة.‎ M ML 1 ) بقيمة معدل الزيادة أى ( بواحد افتراضيا‎ ) M الحلقة ( المتغير‎ Ae زيادة‎ (1 
: للحلقة التكرارية ( العدد 3 ) وفى حالة‎ End بقيمة النهاية‎ ) M مقارنة القيمة الجديدة لعداد الحلقة ( المتغير‎ (2 
For أو الأوامر التى تلى الأمر‎ Code أ- عدم تخطيها ( نقصانها عن ) قيمة النهاية يتم تكرار الكود‎ 
Next الذى يلى الأمر‎ Code ب - تخطيها ( زيادتها عن ) قيمة النهاية يتم الخروج من الحلقة وتنفيذ الكود‎ 
End Sub وهو‎ 


9 

Ej 

Next :‏ 2 - هل قيمة M‏ أكبر من قيمة النهاية. 
(False) -3‏ 

j 

' 

ES 8 

J1 8 التسرم الثانى‎ ër f Ban i/i sael 


| | الصف الثسالث الاعسدادى GC‏ 


o‏ تم تحديد نوع بيان Data Type‏ للمتغير M‏ من نوع عددى صحيح Byte‏ ولیس Integer‏ وفقاً للاستخدام الأمثل 
للذاكرة. 

, MsgBox نلاحظ عند تشغيل البرنامج ثم نقر زر الأمر ( عرض الأعداد من 1 إلى 3 ) ظهور 3 صناديق رسالة‎ o 
فى صندوق الرسالة الأول وهكذا‎ OK تباعاً ولن يظهر صندوق الرسالة الثانى إلا بعد النقر على زر‎ 


١ 0 l Se 


قا ...عرض الأعذاد من ١‏ إلى 


© تدريب 2 : قم duet‏ ندريب 1 السابق due‏ بعرض الأعداد من 1 d‏ 3 فى صندوق نص TextBox‏ $ 
1- اضف صندوق نص إلى النموذج باسم 167420171 كما هو موضح بالشكل التالى :- 


TextBox1 


"IZ E ات‎ ASA رض‎ 


2- عدل الكود Code‏ بحيث تطبع الأرقام داخل صندوق النص 76740171 كما يلى :- 

Public Class "021 F 

W Private Sub Button) Click (ByVal ............ A 

Dim M As Byte 

Me.TextBox1. Text = "" 
For M = 1 To 3 


Me . TextBox1.Text = Me.TextBoxl.Text & M 
Next M 
End Sub 
End Class 


جر من تتبع الكود Code‏ السابق نجد : 

= الأمر M‏ ع Me. 76128031 . rext = Me .TextBox1 . Text‏ المقصود به وضع ( إضافة ) قيمة 
المتغير M‏ بجانب ما هو موجود بداخل صندوق النص 76480171 وتم ذلك بكتابة معامل الربط & والذى يستخدم 
فى وصل ( ربط ) سلسلتين حرفيتين ببعضهما. 

« فى حالة كتابة الأمر السابق oig‏ الطريقة Me. fextbosl. Text = M‏ لن نلاحظ تغير قيم المتغير M‏ أثناء 
التنفيذ » وإنما سيظهر آخر قيمة فقط له وهى 3 كمايلى [----- 23 ] لأننا لم نضف قيمة 
المتغير للمحتوى الموجود بداخل صندوق النص .TextBox1‏ 

- شغل البرنامج بالضغط على مفتاح 55 . 
A Qe‏ اضغط على الزر عرض الأعداد من 1 إلى 3 نلاحظ ظهور الأعداد فى مربع النص .TextBox1‏ 


ër 2‏ التسرم الثانى 2018 


ED,‏ ا ت 


| | الصف الثسالث الاعسدادى "ër‏ 


9 
Le‏ تحسين شكل المخرجات :- 
A‏ عند النقر Click‏ على زر الأمر ( عرض الأعداد من 1 إلى 3 ) أكثر من مرة سيظهر صندوق النص به الناتج , 
5 آ 322-0122 ] وذلك بسبب إضافة الأمر"" = Me .TextBoxl.Text‏ قبل الحلقة 5 / 
el‏ التكرارية لمسح محتويات صندوق النص TextBox1‏ › أما D‏ لم نستخدم هذا الأمر ونقرنا' 
Click‏ على زر الأمر (عرض الأعداد من 1 إلى 3) ثلاث مرات مثلاً سيظهر صندوق النص به الناتج 
3 كما يلى : 
A l‏ كما يمكننا عرض الأرقام بداخل صندوق النص 7648071 بحيث يكون كل رقم فى سطر جديد بإتباع الآتى :- 
u 0‏ مع تغيير قيمة الخاصية Multiline‏ للأداة TextBox1‏ لكى تكون True‏ مع تغيير حجمها فى وضع التصميم 
» عدل الكود داخل الحلقة التكرارية بإستخدام الكلمة المحجوزة vbCrLf‏ والتى تستخدم فى إنشاء سطر جديد وهى 
تشير لرمز مفتاح الإدخال Enter‏ من لوحة المفاتيح › كما يلى : 


zs Class Forml 
GC Private Sub Buttonl Click (ByVal ............ 
Dim M As Byte 
GC Me TextBox1. Text = "" 
For M = 1 To 3 
Me . TextBox1.Text = Me.TextBoxl.Text & M & vbCrLf 
Next M 
A End Sub 
End Class 


dE E Pe? 


Visual Basic Carriage Return Une Feed هى اختصار ل‎ vbCrLf الثابت الحرفى‎ 5 


o‏ شغل البرنامج بالضغط على gui‏ ۴5 من iag‏ المفاتيح ثم اضغط على زر عرض الأعداد من 1 إلى 3 كما هو 
موضح بالشكل التالى: ١‏ 


کے د 


إل تشع é‏ 


; © تدريب 3 : قم dass‏ برنامخ aclh)‏ جدول صرب العدد 3 فى صدادوق نص dag TextBox‏ عند Click wl‏ على زر 
Button‏ £ 
d‏ يتم إنشاء و تصميم مشروع يحتوى على نموذج Form‏ كما تعلمنا فى الفصل الدراسى الأول › ثم كتابة كود Code‏ 
Ai‏ البرمجة الخاص بزر ( عرض جدول ضرب 3 ) باستخدام إجراء الحدث Button) Click‏ كما يلى : 
Public Class "1 5‏ 
Private Sub Buttonl Click (ByVal ............‏ 
Dim M, prodect As Integer‏ 02 
Dim str As String‏ © 
For M = 1 To 12‏ 
M & "="‏ ع str = 3 & "X"‏ © 


Next 
End Sub 
End Class 
: السابق نجه‎ Code الكود‎ mii من‎ X% gp 
M لتخزين حاصل الضرب به مع كل تغير فى قيمة المتغير‎ prodect تمالإعلان عن متغير باسم‎ © 
( prodect = 3 * M) 
(3x3= أو‎ 3x2= الضرب ( =3×1 أو‎ Jaa ila لتخزين شكل‎ str تم الإاعلان عن متغير باسم‎ © 
حيث يتم تمثيل الأعداد‎ >) str = 3 & "×" 8 MS "="( M كسلسلة نصية مع كل تغير فى قيمة المتغير أو العداد‎ 
5 . M بالمتغیر‎ 2 ........ “4321 A 
( DN باستخدام‎ prodect وربطهم بقيمة المتغير‎ str بقيمة المتغير‎ TextBox eil تم وصل (ربط) محتوى صندوق‎ © | DN 
Z A معامل الربط‎ i 
Enter لإضافة سطر جديد و تشير إلى رمز مفتاح الإدخال‎ vbCrLf تم استخدام الثابت الحرفى‎ © 
والاكتفاء بالمتغير اللا حتى نحصل على‎ Variables يمكن كتابة الكود السابق بدون استخدام هذه المتغيرات‎ © 
: كمايلى‎ 12 ........ ›4 3 ١» 2 ٠ 1 الأعداد‎ 


7+ جع کک -- 935 355 


55 
CO Prodect = 3 * M © © © ke, 
Me.TextBoxl1.Text = Me.TextBoxl.Text ع‎ str & prodect & vbCrLf ) 


‚Public Class Form1 
j Private Sub Button1l_Click (ByVal ............ 


CH 
"Dim M As Integer EA ba + 
For M = 1 To 12 
Me.TextBox1.Text = Me.TextBox1.Text & z 3* M) 
Next 
End Sub 
End Class 


25 إذن السؤال الذى يتبادر إلى الذهن : D‏ إذن استخدام المتفبرات ١‏ وذلك لتبسيط ولتسهيل تتبع كود Code‏ البرنامج › فيجب 
عليك ألا تنظر إلى صغر التدريبات المقررة عليك ففى الواقع العملى يكون كود البرنامج يتكون من آلاف الأوامر وعلى 
المبرمج استخدام قيم متكررة فى البرنامج فى أماكن متعددة لذا يصبح من السهولة الاستعاضة عن هذه القيم باستخدام 
متغيرات بدلاً منها » غير أسباب أخرى كثيرة تجعل المبرمج يستخدم المتغيرات والثوابت. 


Ces ft fD 


gr الصف الثسالث الإعسدادى‎ | Desktop ër 


شغل البرنامج Start Debugging Ces‏ < من شريط الأدوات القياسى ثم انقر زر عرض جدول ضرب الأعداد 
يظهر جدول ضرب 3 


TextBox1 


263 =33 
2231-2-6 


-: بالشكل الذالى‎ bas هو‎ W Textbox 


ad Designed By: Fatma Abdallah 


$ 3 تدريب 4 : عدل البرنامخ بالتدريب السابف لعرض جدول الضرب الخاص بأى رقم يلم إدحاله من < لال Sun‏ 


sxi=5 


Sen Js إدخل رقم‎ 


522-130 
2-3-1 
54-20 
° د‎ Greg 
6-30 


Sx<x7—=35 
Sx<xs-=4o 
E - 4> 
سيم‎ TextBox1 
5211-5 
>13 2-650 


H 


Public Class Formi 
Private Sub Button1l_Click (ByVal ............ 
Dim M, prodect , NUM As Integer 
Dim str As String 


NUM = Me.TextBox2.Text 


3 
Me.TextBox1. Text = "" 
For M = 1 To 12 
str =(RUM) ع‎ "X" ع‎ M © "=" 
prodect =(RUM)* M 
CG Me.TextBox1.Text = Me.TextBoxl.Text ع‎ str & prodect »ع‎ vbCrLf 
Next 
End Sub 
End Class 


السرم الثسانى 0185 


NE AT EE E Step Aalt زيادته دائماً تساوى 1 . حيث يمكنك إضافة‎ A 
' . جعل قيمة الزيادة أكبر من الواحد مثل 2 أو 3 أو. الخ أو رقم غير صحيح ( عشرى ) مثل 2.5 أو 0.5 أو 5.4 وهكذا‎ (a 5 

(b‏ كما يمكنك جعل قيمة البداية Start‏ أكبر من قيمة النهاية End‏ وفى هذه الحالة يجب أن تكون قيمة الزيادة Step‏ سالبة. 

(c‏ كما يمكن أن تكون قيمة البداية Start‏ و قيمة النهاية End‏ و قيمة الزيادة Step‏ رقم صحيح أو عشرى أو متغير 
A‏ 


عددى أو ثابت عددى › رقم سالب أو موجب. , 
الصيغة العامة لهذه الجملة D‏ 


' For Variable = Start To End [Step n] 


الأوامر التى سيتم تكرارها < Code‏ 


Next [Variable] 
For ويحدد مع‎ Next وتنتهى بكلمة‎ For يبدأ الإعلان عن الحلقة التكرارية بكلمة‎ 
p .) الحلقة نوع بيانه عددى ( صحيح أو غير صحيح‎ Counter Aue يطلق عليه متغير‎ Variable اسم متغير‎ — 0# 
.) عددية ( صحيح أو غير صحيح‎ Start والعداد له قيمة بداية‎ - 2 
.) عددية ( صحيح أو غير صحيح‎ End والعداد له قيمة نهاية‎ W- 
.1 وهى اختيارية أى يمكن عدم كتابتها وفى هذه الحالة تأخذ قيمة افتراضية هى‎ Step قيمة الزيادة‎ - 4 
. المراد تكراره لعدد محدد من المرات‎ Code الكود‎ - 5 
T نهاية الحلقة التكرارية ويتبعها اسم المتغير و اسم [المتغير] إختيارى يمكن عدم كتابته وفى هذه الحالة يأخذ‎ sÍ Next - 6 
, For قيمة افتراضية هى اسم المتغير الذى يلى كلمة‎ | 
وهذا للدلالة على أنها اختيارية أى‎ [Step] من الهيكل العام السابق تم وضع بعض الكلمات بين قوسين بهذا الشكل‎ # 
. )1+( يمكن عدم كتابتها وفى هذه الحالة تأخذ قيمة افتراضية_هى‎ 
: For. Next أمثلة على استخدام جملة‎ 205 
.10 لعرض الأعداد الفردية من 1 إلى‎ 1 


“Dim I Ae Byte 
/ For I = 1 To 10 Step 2 


3 M 
3 3 
Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf d 
Next 
.10 لعرض الأعداد الزوجية من 2 إلى‎ 2 
Dim I As Byte 
For I = 2 To 10 Step 2 

Me .TextBox1l.Text = Me.TextBoxl.Text © I & vbCrLf 
Next 

.10 لمرض الأعداد التى تقبل القسمة على 3 أو مضاعفات رقم 3 من 3 إلى‎ 3 
Dim I As Byte 
For I = 3 To 10 Step 3 
Me.TextBox1. Text = Me.TextBoxl.Text © I © vbCrLf 


Next 


fm e f 


J| e‏ ام انات اد 


.1 لمرض الأعداد الزوجية مرتبة تنازلياً من 10 إلى‎ A 

Dim I As Byte 
"For I = 10 To 1 Step -2 
Me.TextBoxl1.Text = Me.TextBox1.Text & I © vbCrLf 
‘Next 

5 لعرض الأ مداد من 1.5 إلى 0.5 بتناقص قاره 0.5 كل مرة. 
Dim I As Single‏ 
For I = 1.5 To 0.5 Step -0.5‏ 
Me.TextBox1.Text = Me.TextBox1.Text & I © vbCrLf‏ 


.© بمعدل زيادة قيمته‎ B لصسصطرظالأعساددمن 1 إلى قيمة‎ 6 
Dim I, B, C As Single 
For I = 1 To B Step C 
Me.TextBox1.Text = Me.TextBox1.Text & I © vbCrLf 


: من الأمثلة السابقة نجد أن‎ DÉI 
ثم كتابة الرقم.‎ Step بكلمة‎ Counter يمكن تحديد معدل ( قيمة ) الزيادة للمتغير أو العداد‎ © 
يجب أن يكون سالباً فى حالة أن تكون قيمة البداية أكبر من قيمة‎ Counter معدل ( قيمة ) الزيادة للمتغير أو العداد‎ © 
. النهاية‎ 
يمكن لقيمة البداية أو النهاية أو معدل الزيادة أن يكون عدد عشرى وفى هذه الحالة يجب تعريف متغير الحلقة من,‎ © 


© يمكن لقيمة البداية أو النهاية أو معدل الزيادة أن يكون متغير Variable‏ أو ثابت عددى . 
© يجب أن يكون عداد الحلقة Variable Ai Counter‏ عددى مناسب . 


: Do While 


تستخدم لتكرار تنفيذ كود (Code)‏ محدد لعدد من المرات غير معروف نهايته مسبقاً Sa‏ على شرط معين. 


Lë‏ 7 لذلك هى مفيدة فى حالة عدم معرفة Ae‏ مرات التكرار بشكل قاطع. 


الصيغة العامة لهذه الجملة 


„True طالما التعبير الشرطى صحيح‎ Code تكرار الكود‎ Do While المقصود بجملة‎ JOS 
Ae ولا يعرف لها‎ (True ( يستخدم لتكرار مجموعة من الأوامر إذا تحقق شرط معين_‎ Do أمر التكقرار‎ ZE 


Aa“ 


مرات تكرار محدد مسبقاً وإنما ينتهى التكرار عندما لا يتحقق الشرط ( (Ealse‏ . 


eg‏ و ڪڪ 


ED کے‎ 


Single يقبل الكسور العشرية مثل النوع‎ Data Type نوع بيان‎ A 


0 الصف الثسالث الاعسدادى‎ i CH 


J) على‎ pal ثم‎ TextBox1 إدحال رقم فى صندوق نص‎ ueg Form على عمودج‎ Cois Project قم باشاء مشروع‎ À 

/ N أما‎ UstBos) تصاعدياً حثى الرقم اطدخل داخل صندوق القائمة‎ Adv (الأعداد الفردية ) ينم عرض الأعداد الفردية‎ / i ١ 
(> تصاعدياً حتى الرقم الطدخل داخل صندوق القائمة‎ adw عرض الأعداد الزوجية‎ ei ) النقر على زر( الأعداد الزوجبة‎ ` 
.ListBox1 


| أعداد فردية‎ | Geck اعدد‎ 
14 أعداد زوحية أعداد زوحية‎ 
16 
18 
Private Sub Buttonl Click (ByVal 
Dim N, i As Integer 
N = Me.TextBox1 .Text Sall 
0 Me.ListBox1. 2 5معغ‎ CLear( 


For i =/N\ To (NDstep (2) 
Me.ListBox1. Items. Add (i) 
Next 
End Sub 


| For... Next باستخدام جملة‎ 
Public Class "021 = d 


(#4 Public Class Form1 Do While باستخدام جملة‎ 


Private Sub Button1l_Click (ByVal 
Dim N, i As Integer 
N = Me.TextBox1.Text 


i Me. ListBox1.Items.Clear )( كود الأعداد‎ 
الفردية‎ 
a 3 


Do While i <= 
Me.ListBox1. Items . Add (i) 


Loop 
End Sub 
End Class 


fm t f 


Desktop‏ | ظ ظ الصف النالث الإعسدادى 


Private Sub Button2_Click (ByVal 


3 . For... Next باستخدام جملة‎ 
Dim N, 1 As Integer 


N = Me.TextBox1.Text 


Me.ListBox1. Items. Clear () 


For 1 = To (N) step (2) الزوجية‎ 


Me.ListBox1. Items. Add (i) 


Next 
End Sub 
End Class 


Private Sub Button2_ Click (ByVal 


Do While باستخدام جملة‎ 
Dim N, i As Integer 


N = Me.TextBox1. Text 
Me. ListBox1.Items.Clear () الزوجية‎ 
i = 
Do While i <= 
Me .ListBox1.Items.Add (i) 
Loop 
End Sub 
| End Class 


2-3 Deen 


25 نلاحظ فى التدريب السابق أن 

1 - متغير الحلقة التكرارية فى كود الأعداد الفردية بدأ بعدد فردى هو 1. 
2 - متغير الحلقة التكرارية فى كود الأعداد الزوجية بدأ بعدد زوجى هو 2. 
Zb‏ من الممكن أن يتم الإعلان عن المتغيرات Dim N, i As Integer‏ مرة واحدة على مستوى أو نطاق 
التصنيف بدلاً من تكرارهما فى كل إجراء. j‏ 
2 لتلافى تكرار إضافة الكتابة داخل ListBox]‏ عند تنفيذ أى من الإجرائين مرة أخرى يجب كتابة الكود التالى:". 
tems . Clear )(‏ ]1 . 1:ه80 115 . Me‏ والذى يستخدم لمسح محتويات صندوق القائمة „ListBox1‏ 


e‏ فى الكود Me. | 1,15 80:1 |.Items.Clear()‏ الجزء 8041 1,315 عبارة عن أداة تحكم. 


e‏ فى الكود Me . lis 8021 . .Clear()‏ الجزء Items‏ عبارة عن خاصية. 
° فى الكود | () Me . 835 28031 . Items. | Clear‏ الجزء () Clear‏ عبارة عن وسيلة. 


E 


7 [إعداد 1/ اعد انط ër f‏ التسرم الثانى 8 J1‏ 


i CH‏ الصف الثسالث الاعسدادى ص0 


عرض الأعداد الزوجية 


Public Class "021 
Private Sub Buttonl Click (ByVal 


Dim N, i As Integer 
N = Me.TextBox1. Text 
Me.ListBox1. Items. Clear () 
If N Mod 2 = 0 Then 

N=N - 1 
End If 
For i =/\ To (1Dstep (22) 
Me.ListBox1. Items . Add (i) 


Next 
End Sub 


& 
& 


Public Class "21 
Private Sub Button1 Click (ByVal 

JN Dim N, i As Integer 
A N = Me. "62228021 . Text 
Me.ListBox1. Items. Clear () 
If N Mod 2 = 0 Then 

N=N - 1 
End If 
i =A 
Do While i >= GY 


Me . 1:15 5021 . Items . 200 (1) 


Loop 


End Sub 


201 8 التسرم الثانى‎ ër 


; © تدريب 6 : قم بتعديل كود البرنامخ فى الثدريب 5 السابق cus‏ ينم طباعة الأعداد lau WG‏ من تصاعدياً ؟ 
nd‏ 


عرض الأعداد الفردية 


For... Next باستخدام جملة‎ 


) كود الأعداد 
p‏ 


D 
d 


| 


Do While باستخدام جملة‎ 


كود الأعداد 
الفردية 


| آل ام انات اد 


Private Sub Button2 Click (ByVal 
Dim N, i As Integer For... Next باستخدام جملة‎ 
N = Me.TextBox1. Text 
Me.ListBox1. Items. Clear () كود الأعداد‎ 
If N Mod 2 < > 0 Then الزوجية‎ 
N=N - 1 
End If 


For i BE end step [-2) 
Me.ListBox1. Items . Add (i) 


Next 
End Sub 
End Class 


Do While باستخدام جملة‎ 


Private Sub Button2 Click (ByVal 7 
em A A 
Dim N, i As Integer e 


N = Me.TextBox1l1. Text 


% 
, 
V 
؛‎ 
0 
؛‎ 
GC 


D 
3 


If N Mod 2 < > 0 Then 
N=N - 1 
End 2 
i A 
Do While i >= 
Me.ListBox1. Items . Add (i) 
Loop 
End Sub 
End Class 


a a oer 330 کک‎ — Dep 


— نلاحظ فى التدريب السابق أن‎ 2 E 
TextBox1 المدخل فى صندوق النص‎ N إضافية فى كود الأعداد الفردية للتحقق من أن العدد‎ If تم إضافة جملة‎ © 
Ae حتى نحصل على‎ 1 AN يتم إنقاص قيمة‎ True لا أى يقبل القسمة على 2 فإذا كان ناتج الشرط‎ al عدد زوجى‎ 


© تم إضافة جملة If‏ إضافية فى كود الأعداد الزوجية للتحقق من أن N Al‏ المدخل فى صندوق النص TextBox1‏ 
Ae‏ فردى أم لا أى لا يقبل القسمة على 2 فإذا كان ناتج الشرط True‏ يتم إنقاص قيمة AN‏ 1 حتى نحصل على عدد 
زوجى. 

© نلاحظ أن متغير الحلقة التكرارية ¡ فى جميع الإجراءات السابقة بدأ بقيمة ابتدائية هى N‏ وانتهى بقيمة نهاية هى 
العدد 1 فى إجراء العدد الفردى و العدد 2 فى إجراء العدد الزوجى ومعدل الزيادة لهذا المتغير ¡ أخذ قيمة سالبة هى -2. 


fs t fS 
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GC الصف الثسالث الاعسدادى‎ | | CH 


© تدريب 7 : صمم نافذة البإنامخ due‏ يستقيل عرد موجب فبعرض مجموع الأعداد الفردية فى الأداة Label3‏ حتى 
الرقم الذى م إدخاله عند الضغط على زر مجموع الأعداد الفردية فى الأداة Label?‏ و يعرض مجموع الأعداد الزوجية 

. Label3 حى الرقم الذى ثم إدخاله عند الضعط على زر مجموع الاعداد الزوجية فى الأداة‎ Label3 aal فى‎ A: 

a 


| 
d 


0 


مجموع ell‏ الزوجية و الفردية Si‏ مجموع الأعداد الزوجية و الفردية si‏ 


أدخل عدد موحب 18 


TextBox1 


op المجموع‎ 


مجموع الأعداد مجموع الأعداد 
الغردية الزوحية 


Public Class "021 
Private Sub Buttonl Click (ByVal 
Dim N, i, Sum As Integer 
N = Me.TextBox1. Text 


For i =/N To (NDstep ES 


Sum = Sum + 1 


Next 
Me.Label3.Text = Sum 


End Sub 


Do While باستخدام جملة‎ 


H. Public Class Forml 
Ki Private Sub Button1 Click (ByVal 


كود مجموع 
الأعداد الفردية Dim N, i, Sum As Integer‏ 
N = Me .TextBox1 . Text‏ 
i =‏ 


Do While i <=(N} 
Sum = Sum + i 

Loop 

Me.Label3.Text = Sum 


End Sub 


GC الصف الثسالث الاعسدادى‎ i C 


Private Sub Button2_Click (ByVal 


Dim N, i, Sum As Integer 
N = Me.TextBox1. Text 


For i =/N To (NDstep A كود مجموع‎ 


Sum = Sum + i الأعداد الزوجية‎ 


For... Next باستخدام جملة‎ 


Next 
Log Me . 1.3613 Test = Sum 
8 End Sub 


End Class 


Do While Se While Segen | باستخدام‎ 


Private Sub Button2_ Click (ByVal 


Dim N, i, Sum As Integer كود مجموع‎ 
N = Me.TextBox1 . Text الأعداد الزوجية‎ 
1 = 


Do While i <= (N 
Sum = Sum + i 
i = +2) 
Loop 
Me.Label3.Text = Sum 
End Sub 


End Class 
وهو المخزن الذى سيضاف إليه فى كل مرة يتم فيها‎ Sum نلاحظ فى التدريب السابق أنه تم الإعلان عن متغير جديد هو‎ © 
. Sum = Sum + i بجملة التخصيص‎ j التكرار قيمة المتغير‎ 


© تم إضافة سطر الأوامر Me . 1235613 . Text = Sum‏ خارج الحلقة التكرارية ) أى بعد الإنتهاء من LA‏ الحلقة — 


© من الممكن أن يتم الإعلان عن المتغيرات Dim N, I, Sum As Integer‏ مرة واحدة على مستوى 
أو نطاق التصنيف بدلاً من تكرارهما فى كل إجراء. 


geen‏ ڪڪ 


الترم الثانى 2018 


۱ التكرارية يتم تخصيص قيمة المخزن Sum‏ للخاصية Text‏ للأداة Ki .Labe13‏ 


==] 
? 
) 


W | 


é‏ "كك 
errr‏ ائات e‏ الإجرادات -:Procedures‏ 


W‏ عند إضافة نافذة نموذج Form‏ جديدة ينشأ تصنيف Class‏ جديد باسم نافذة النموذج Form‏ وفى نطاق هذا التصنيف 
5 / 5 يتم: 
e‏ نعلن عن إجراءات الأحداث Event Procedures‏ مثل إجراء الحدث بزر معين. 
e‏ كذلك الإعلان عن المتغيرات Variables‏ والثوابت Constant‏ سواء داخل نطاق إجراءات الأحداث 
Event Procedures‏ أو نطاق التصنیف Class‏ . 
D‏ تدريب 1 : قم بنصميم وكنابة كود البرمجة اللازم لعرض الأعداد الفردية elle‏ داد الزوجية من 1 إلى 10 داخل Sun‏ 
عنوان Label‏ وذلك عند الضغط على زرك Button) wl‏ ع Button?‏ $ 
١‏ الل 


9 
Public Class Forml 
Dim total As Integer 
Private Sub Buttonl Click (ByVal... 
10 عرض الأعداد الفردية من 1 إلى‎ ' 
Dim i As Integer 
Me .Label1.Text = "" p 
For i = 1 To 10 Step 2 
Me .Label1.Text = Me.Labell.Text & " " © i 0 
Next 
End Sub 
Private Sub Button2_ Click (ByVal... 
10 م ' عرض الأعداد الزوجية من 1 إلى‎ 
Dim i As Integer A 
Me.Label1.Text = "" 
For i = 2 To 10 Step 2 


Me.Label1.Text =Me.Labell.Text &€ " " © i 
Next 
End Sub عرض الأحداد الزوجية والغردية  اه‎ 
| End Class 


الأعداد الرووحية 


alasi A‏ اله 
؛ 25 من الكود السابق نجد Er‏ 
° © الإعلان عن تصنيف Class‏ تحت اسم Form‏ 


© الإعلان عن متغير Variable‏ تحت اسم total‏ على مستوى ( نطاق ) التصنيف Form‏ ليس له فائدة فى هذا 


البرنامج. 

© الإعلان عن إجرائین للأحداث تحت مستوى ( نطاق ) التصنيف Form)‏ › تحت اسم 
Button) Cck‏ و Button? Chck‏ 

© الإعلان عن متغيرين Variables‏ بنفس الاسم داخل الإجرائين Button1_Click‏ و Button? Click‏ › تحت اسم ¡ . 


© الإعلان عن بناء لجملة For‏ داخل الإجرائنين Button) Click‏ و Button? Click‏ 


mm t f 


M | 


A سيتكرر كتابته فى‎ Code فى حالة إذا ما كان لدينا كود‎ Sub للإعلان عن الإجراء‎ ia NC 


( D | 


Ki 


Public Class _ 7521 


Sub @howOddOrEven> (ByVal As Integer) 


J|‏ ام انات اد 


05 من الملاحظ تكرار محتوى إجرائی الأحداث Button? Click‏ و Button? Click‏ من أوامر 
ما عدا القيمة الابتدائية للعداد ¡ » وفى السطور التالية سيتم استخدام طريقة جديدة لكتابة إجراء معين واستدعائه فى 


إجراءات أخرى أكثر من مرة لتلافى مشكلة التكرار ولتسهيل فهم الأوامر. 


1 rocesure . x 3 


هو مجموعة من الأوامر والتعليمات Code‏ تحت اسم ما ` عند استدعاء هذا الاسم يتم تنفيذ هذه الأوامر والتعليمات وله 


صورتين:- 
O‏ إما أن تكون SUb‏ لا تعود بقيمة. © أو Function‏ تعود بقيمة. 


ل الإجراء Procedure‏ بصفة عامة يعلن عنه مرة واحدة ( تحت أحد الصورتين السابقتين ) ويمكن استدعاؤها العديد 


من المرات وهذا يوفر تكرار كتابة الكود Code‏ فى أماكن استدعاء هذه الإجراءات „Procedures‏ 


أكثر من موضع داخل التصنيف Class‏ وكذلك بهدف تنظيم كتابة الكود Code‏ حتى يسهل قراءته وفهمه ومن ثم تعديله' 


Name ( Parameters ( 


Ki 
إذا لزم الأمر.‎ 
Sub الصيغة العامة للإعلان عن‎ E 


Code 


5 أن‎ dé 
Sub تعبر عن اسم الإجراء‎ Name © 


Parameters ©‏ ( المعاملات أو الوسائط ) وهى عبارة عن القيم التى سوف تستقبل عند استدعاء الإجراء , 


. Data Type وله نوع بیان‎ Code والتى تستخدم فى الكود‎ Procedure 
„Sub مجموعة من الأوامر والتعليمات التى ستنفذ عند استدعاء الإجراء‎ Code © 


ZE‏ تم وضع ملاحظة فى التدريب رقم 1 السابق والتى تفيد بأن الكود Code‏ المكتوب داخل كل من إجراء 
الحدثين Button) Click Event Procedure‏ و Button? Click‏ متكرر ما عدا القيمة الابتدائية لعداد 


التكرار ‏ حيث فى كود الأعداد الزوجية ظهر بالقيمة 2 و فى كود الأعداد الفردية ظهر بالقيمة 1 . 
B‏ تدريب 2 : 


قم بتعديل كود البرهجة فى ندريب 1 السابف باستخدام الاع لان عن إجراء Procedure‏ من نوع Sub‏ يستحادم فی ' 
إجراء الحدثين المستخدمين لعرض الأعداد الفردية و الأعداد الزوجية من 1 إلى 10 داخل مرب عنوان Label)‏ وذلك ve‏ 


الإعلان عن معامل Parameter‏ 


Dim i As Integer SEES 
Me.Label1.Text = "" 

For i = Start To 10 Step 2 

Me .Label1.Text = Me.Labell.Text © " " E yy 
Next Sub استدعاء الإجراء‎ 


End Sub 


ai 
£ Button? 8 Button1 wel Ej الضغط على‎ 


d fD 


Desktop‏ | | الصف الفسالث الإعسدادى ص0 
Private Sub Button1l Click (ByVal‏ ) 


عرض الأعداد الفردية من 1 إلى 10 Rem‏ 


E. howOddOrEven (1 
A 


End Sub 


© Private Sub Button? Click (ByVal 
10 عرض الأعداد الزوجية من 1 إلى‎ ' 


End Sub 
¿End Class Argument تحديد قيمة‎ 
ننج‎ 


عرض الأعداد الزوجية والغردية 


avor) 


2 من الكود السابق نجد أن : 
© الإعلان عن إجراء Sub‏ تحت اسم ( ShowOddOrEven(‏ له dataa‏ أو وسيط saly‏ تحت اسم Start‏ 
حتى يمكن تحديد قيمة بداية عداد تكرار الحلقة التكرارية For‏ وبناءاً عليه تعرض الأعداد الفردية التى تبدأ بالعدد 1 
أو الأعداد الزوجية التى تبدأ بالعدد 2. 

© الإعلان عن معامل أو وسيط Parameter‏ واحد تحت اسم Start‏ من نوع عددى Integer‏ فى 
الإجراء ( .ShowOddOrEven(‏ ; 
© استدعاء الإجراء Sub‏ المسمى ( ShowOddOrEven(‏ داخل إجراء الحدث Button" Click‏ مع استخدام P‏ 
معامل Parameter‏ بقيمة Argument‏ هو 1 حتى تكون قيمة بداية عداد الحلقة هو 1 بهذا الأمر A‏ 
ShowOddOrEven(1)‏ لطباعة الأعداد الفردية التى تبدأ بالعدد 1. ) 

كما تم استدعاء نفس الإجراء Sub‏ داخل إجراء الحدث Button? Click‏ مع استخدام معامل Parameter‏ بقيمة 
Argument‏ هو 2 حتى تكون قيمة بداية عداد الحلقة هو 2 بهذا الأمر ShowOddOrEven(2)‏ لطباعة الأعداد 
الزوجية التى تبدأ بالعدد 2. 

© يجب أن يكون قيم الوسيط Argument‏ 1و2 من نوع بيان متوافق مع نوع بيان الوسيط Parameter‏ 
المسمى „Start‏ 

20 إن عدم استخدام الإعلان عن المعامل أو الوسيط Parameter‏ المسمى Start‏ عند الإعلان عن إجراء Sub‏ تحت 
اسم ( ShowOddOrEven(‏ بالشكل التالى يحدث الآتى : 


Sub 7217© 
Dim i As Integer 
Me.Label1.Text = 


For i = 1 To 10 Step 2 
Me.Label1.Text = Me.Label1.Text 8 " " &i 
Next 
End Sub 


عند اختبار البرنامج نجد أن النقر على زر الأعداد الفردية و زر الأعداد الزوجية سوف يعطى نفس النتيجة وهى طباعة 
الأعداد الفردية لكلا الزرين » والسبب أن قيمة بداية عداد الحلقة التكرارية For‏ واحدة وهى القيمة1 › لذا تم الإعلان عن 
المعامل أو الوسيط Parameter‏ المسمى Start‏ واستخدامه بقيمة ShowOddOrEven(1) Argument‏ 
ShowOddOrEven(2)s‏ كما شرحنا. 


fms t fD 


e ET ter Dag DT ege — ep‏ د33 


EE‏ ا ڪڪ 


ال شع é‏ 


ZE ;‏ يمكن الإعلان عن إجراء Procedure‏ بدون استخدام أى معامل أو وسيط Parameter‏ أو باستخدام معامل أو أكثر. 
205 تستخدم المعاملات أو الوسائط Parameters‏ كوسيلة لاستقبال قيم Argument‏ من خارج الإجراء › هذه القيم 

غير معلومة مسبقاً > وإنما تحدد عند استدعاء هذا الإجراء Procedure‏ كما حدث فى إجرائى الحدث للأعداد الفردية nd‏ 

Ki والزوجية.‎ 

.) يمكن أن تكون قيم مجردة أو قيمة من متغير أو ثابت أو دالة ( سيأتى ذكرها لاحقاً‎ Argument هذه القيم‎ ZE 

5 تدريب 3 : 

قم بنطوير كود البرهجة فى ريب 2 السابق بحيث يكون الإجراء ) déi ug ShowOddOrEven(‏ قيمة بداية Start‏ 


: فى عصلية التكرار.‎ Last ala وقيمة‎ : 
1 Parameters الإعلان عن معاملين‎ t 
Public Class "1 
Sub ShowOddOrEven(ByVal tard As Integer , ByVal (Last) As Integer) 
Dim i As Integer 
R Me Labell. Gest = "Im Sub الإعلان عن الإجراء‎ 


For i = 6+3 To Qasi) 
Me .Label1.Text = Me.Labell.Text & " " &i 
Next 

End Sub 

Private Sub Button1 Click (ByVal 


"عرض الأعداد الفردية من 1 إلى 10 


E? 5010000 دمع 1ع‎ 
End Sub 
Private Sub Button2 Click (ByVal 
01 


"عرض الأعداد الزوجية من 1 إلى 10 
مع 1ع 52010000 
End Sub‏ 


,End Class 
. مرة واحدة فقط ثم يمكن استدعائه أى عدد من المرات‎ Procedure يتم الإعلان عن الإجراء‎ ZE 
لاحظت أننا يمكننا التحكم فى عرض الأعداد سواء كانت فردية أو زوجية › وكذلك نطاق أو مدى الأعداد › فمثلاً لو‎ 0 


.ShowOddOrEven(35,5) 


01 
1 أعطينا قيم Argument‏ هى (35,5) ستعرض الأعداد الفردية من 5 : 35 › وذلك باستخدام الأمر 


p -e 


Le Function Atai je geYi d‏ 5 عن مجموعة من الأوامر تحت اسم معين و يفضل أن يكون اسمها معبر عن 


„Return Value و تعود بقيمة‎ (Parameters ) ويتم تطبيقها على مدخلات أو وسائط‎ eg 


Function الدالة‎ Ae الصيغة العامة للإعلان‎ A 


Function Name ( Parameters ( As Data Type 
Code 


Return Value 
End Function 


Dee e‏ بداية الإعلان ( التعريف ) عن الدالة. 

Name ©‏ تعبر عن اسم Function Aal‏ المقترح e‏ ويفضل أن يكون الاسم متعلق بوظيفة الدالة أو محتواها Lëlz,‏ 
نوع بيان. 

Parameters ©‏ تمثل الوسائط أو المعاملات التى سوف تستخدم فى الكود وله نوع بیان Data Type‏ كما درسنا فى 


) 
j‏ 
Gr‏ الإجراء gr Sub‏ 
Data Type ©‏ تحدد نوع بيان الدالة الذى يوافق نوع البيان الخاص بالقيمة الراجعة ( Value‏ ) من الدالة 
.Function‏ ص0 
Code ©‏ مجموعة الأوامر والتعليمات التى ستنفذ عند استدعاء الدالة „Function‏ 
Value ©‏ القيمة الراجعة ( العائدة ) من الدالة Function‏ والتى يجب الإعلان عنها داخل الدالة بنوع بيان يوافق نوع 
S‏ البيان الخاصة بالدالة ١ . (Name ) Function‏ 
End Function © A‏ نهاية الإعلان ( التعريف ) عن الدالة. 5 
D‏ تدريب 4: ر 
قم بتصميم وناب كود Sol‏ ة اللازم لحساب مجموع رقمين ینم إدحالهم من JIS‏ صناوقى نص TextBox1‏ 
TextBOx2&‏ وإظهار Säll‏ فى مرب عنوان Label‏ وذلك عند wk‏ على زر dg Button wí‏ من خلال الاعلان oe‏ 
alls‏ لحساب هذا ا مجموع ؟ 
j‏ 


Public Class Forml Parameters الإعلان عن معاملين‎ 


Function ES St As Single, ByVal second As Single) As Single 
Dim Total As Single 
© Total = First + Second سه‎ Parameters guai استقدام‎ | 
© Return Total 
©End Function القيمة الراجعة‎ 


Private Sub Buttonl Click (ByVal .. p 
Dim X As Single = Me.TextBox1. Text 
Dim Y As Single = Me.TextBox2.Text 


Me .Label4.Text = Sum(X, Y) استدعاء الدالة وتحديد‎ 
End Sub لها‎ Argument قيم‎ 
End Class 
ër ۰ 


gr ظ الصف الثسالث الإعسدادى‎ | Desktop 


lap oiv الحدد الول‎ 


rea  ىئاقلا الحدد‎ 
| ==] 
5 


المجموع TT‏ اضر | 


© الإعلان عن الدالة Sum‏ من النوع العددى الغير صحيح Single‏ وتستقبل قيمتين هما First‏ و Second‏ . 

© الإعلان عن معاملين ( وسيطين ) للدالة Sum‏ هما First‏ و Second‏ من E ail‏ العددى الغير صحيح Single‏ 

© الإعلان عن المتغير Total‏ من النوع العددى الغير صحيح Single‏ الذى يوافق نوع بيان الدالة Sum‏ وهو يمثل 
القيمة الراجعة (العائدة) من الدالة Sum‏ عند استدعائها. 


Totale First + Second 

Return باستخدام الأمر‎ Total قيمة المتغير‎ Ela A © 

© الإعلان عن المتغيرين × و Y‏ من النوع العددى Single‏ داخل إجراء الحدث Button Click‏ » وتخصي ص 
مدخلات المستخدم لكل Lagia‏ من صندوقى النص TextBox1‏ و TextBox2‏ على الترتيب. 

جر من الضرورى أن يكون المتغيرين من نوع بيان يوافق نوع بيان وسائط أو معاملات Parameters‏ الدالة , d‏ 
Function‏ . 

© تم تخصيص القيمة الراجعة ( العائدة ) من الدالة Sum‏ للخاصية Text‏ للأداة dis, Labeld‏ بعد استقبال القيمتين 
Argument < Y sX‏ للدالة Sum‏ 


5 ليس من الضرورى أن يكون نوع بيان Data Type‏ للمعاملات (الوسائط) من نفس نوع بيان Data Type‏ 
الدالة أو القيمة الراجعة. 


© تم تخصيص ناتج جمع القيمتين First‏ و Second‏ للمتغير Total‏ بالأمر : ص 


تيج -- ا 


Ces e f 


ج من الكود السابق نجد أن : 


ZE‏ يفضل تسمية الإجراء Sub‏ و الدالة Function‏ تسمية متعلقة بوظيفتها أو محتواها. 


مجردة أو متغيرات أو ثوابت 


Desktop‏ | | اصداشات اداد الصف الفسالث الإعسدادى ص 
Variables û‏ والثوابت Constants‏ والاجراء Function AIM a Procedure‏ 
المثفيرات Variables‏ | الشوابت Constants‏ | الإجراء Sub‏ الدائة Function‏ 1 
(nl,‏ 
يمكن تخصيص قيمة لها اثناه | .. لا يمكن تخصيس قيمة لها | لايمكن تقصيس قيمة لها وإنها | 4 
الإعلان We‏ و al‏ سد | 0 , ١‏ > وإنها تستدعى باسمها | تستدعى باسمها SCH‏ قيمة تخزن 
«تشغيل) البرنامج. فتنفذ الأوامرالتى بها. | بها. 
BEES‏ 1 1 5 , ليس لها قيمة Ain‏ فى 
يمكن استخدام القيم المخزنة | يمكن استخدام القيم المخزنة بها يمكن استخدام القيم المخزنة بها فى 
الذاكرة لأنها لا تعود بقيمة Lë‏ 
بها فى الذاكرة. فى الذاكرة. ١‏ الذاكرة و لها ناتج. E‏ 
وليس لها SD‏ 1 7 
ليس لها نوع بيان Data‏ 
لها نوع بیان Data Type‏ | لها نوع بيان Data Type‏ لها نوع بیان Data Type‏ هو نفس 
Type‏ لأنها لا تعود EES‏ 
مناسب. مناسب. نوع بيان القيمة الراجعة. 
بقيمة. 
تكتب فى جمل التخصيص سواء تكتب فى جمل التخصیص على یمین ص 
لا يجوز أن تكتب فى أى 
على يمين ويسار معامل SEN‏ معامل التخصيص فقط , لأنها لا يخصص 
1 جمل تخصيص نهائياً. ص 
قد يكون له وسائط K‏ 
يكون لها وسائط ومعاملات قد تكون 
ومعاملات قد تكون قيم 
ليس لها وسائط أو معاملات. ليس لها وسائط أو معاملات. تيم Zä kent‏ أو متفبيرات 1 


3 


أوثوابت. 


أودوال. 
لا يجوز أن تكتب كما ھی فى | لا یجوز أن تکتب كما ھی فی سطر | تكتب فى سطر palgi‏ بحد | لا يجوزأن تكتب كما ھی فى سطر أوامر 


سطر أوامر بحد ذاتها. أوامر بحد ذاتها. ذاتها. بحد ذاتها. 


: عر الا قتان قل‎ s 
الهم‎ 
Po ر‎ 


نت خعل Së o‏ 
اا 


التسرم الثسانى 8 J1‏ 


é EET é 


أسئلة كتاب الوزارة (الفصل الثالث) 


عن الأسئلة بالكود الثالى: 

Private Sub Buttonl Click (ByVal 
Dim M As Byte 
For M = 1 To 3 


MsgBox (M) 
Next 
End Sub 
يتم تنفيذ الكود عندما يتم الضغط ...على أداة التحكم.‎ -1 
EE للإعلان عن ( متغير - ثابت ) من نوع‎ Dim تم استخدام الأمر‎ -2 
GE اسم المتغير المستخدم فى الحلقة التكرارية هو‎ -3 
Ee قيمة بداية الحلقة التكرارية ................... وقيمة النهاية .............. وقيمة الزيادة‎ A 


U Private Sub But Repeat Click (ByVal sender As System.Opject, 
wn Dim m As Integer 

Me Lebell fest = "" 

For m = 5 To 9 Step 2 


Me.label1.Text = Me.labell.Text & m & vbCrLf 


Next m 
3223230700006 ) 7 المطلوب رقم‎ ( 
MsgBox ("انتهى البرنامج")‎ 
(#4 End sub 
E E EE NE A الغرض من الكود هو‎ -1 
5 EE يتم تنفيذ الكود عندما يقع الحدث ........................ على أداة التحكم‎ -2 
EE تم استخدام الأمر‎ M للإعلان عن المتغير‎ A 
EE جملة التكرار المستخدمة هى‎ A 
E الكود المراد تكراره هو‎ -5 


6- الغرض من استخدام معامل الربط & فى الجملة 
Gest = Me . 132611 fest & m & vbCrLf‏ 1 1©ط3 1 . Me‏ 
7- اكتب مكان النقط ilaa‏ الكود اللازمة لإظهار القيمة النهائية للمتغير M‏ بعد تنفيذ الحلقة التكرارية فى مربع صندوق 


Äre a fD 


i‏ الصدف السات الاعسدادى ١‏ ص0 


Private Sub Buttonl Click (ByVal 
Dim N, prodect As Integer 
Dim str As String 
For N = 1 To 12 

str = 3 & "X" & N & "=" 
prodect = 3 * N 
Me .TextBox1l.Text = Me.TextBoxl.Text ع‎ str ع‎ prodect & vbCrLf 
Next N 
a End Sub 


1- الغرض من الكود هو E E E EA E E AEE‏ 
2- الكود Dim str As String‏ الغرض منه الاعلان عن متغير حرفى باسم Str‏ ( صح - خطأ ). 
3-الغرض من الكود Product = 3 * M‏ تخصيص ناتج ضرب الرقم 3 فى المتغير M‏ للمتغير 


1 ( صح - خطأ ). 

5- الغرض من Me.Textbox1.Text=Me.Textbox1.Text & Str 8 Product & vbcrf Ae‏ 
وضع قيمة المتغير النصى Str‏ و ناتج Product Aid‏ كقيمة للخاصية Text‏ لصندوق ”8 
1 . . ( صح — (Ù‏ . 

Seen -6‏ من جزء الكود vberlt‏ الانتقال إلى سطر جديد . ( صح - خطأ ) . 


.) صح — خطأ‎ ( Product 
> للمتغير‎ Product تخصيص ناتج ضرب الرقم 3 فى المتغير‎ Product = 3 * M ص 4- الغرض من الكقود‎ 


اسز الرا EEN‏ الكود التالى لطباعة جدولاً لضرب الأعداد للعدد (4) من 1 : 12 المطلوب - o‏ 
لضرب الأعداد للعدد (7) بحيث يكون الناتج فى صندوق النص كما يلى: 

7X5=35 

7X7=49 

7X9=63 


i 7X11=77 
Private Sub Buttonl Click (ByVal 
Dim N, prodect As Integer 

Dim str As String 


: For N = 1 To 2 
GC str = 4 & "X" & N & "=" 
: prodect = 4 * N 
Me.TextBoxl1.Text = Me.TextBoxl.Text & str & prodect & vbCrLf 


Next N 


End Sub 


+ fD 


ee)‏ الصف الثسالث الإعسدادى ص0 


عجوب التالى طباعة جدول لضرب الأعداد للعدد )9( من 1 : 10 - المطلوب صوب الأخطاء 
الأربعة بالكود حتى نحصل على نتيجة تشغيل صحيحة للكود فى الجدول. 
“Private Sub Button1 Click (ByVal ea a e e‏ 
A Dim N, prodect As String‏ 
Wi Dim str As String‏ 
Me. TextBoxl.Text = ““‏ 
For N = 1 To 10 Step -1‏ 
str z 9 & WK AM & N & "=n"‏ 
prodect = 9 + N‏ 
prodect & vbCrLf‏ ع Me .TextBox1l.Text = Me.TextBoxl.Text & str‏ 
Next Str‏ 
End Sub‏ 4 
EPEA‏ لسادس : 77771 مامك كود ونافذة النموذج الخاصة بطباعة جدول الضرب لأى عدد من 12 : 1 - المطلوب اكمل مكان 
النقط بما يلزم للكود بالجدول لنحصل على ناتج صحيح بعد تشغيل البرنامج. 


z) 
s 
: 


h Sub Buttonl Click (ByVal ... 
Dim M, prodect , NUM As Integer 

7 Dim str As String 

Gr NUM = Me . TextBox2.Text 

) Me. TextBoxl.Text = ““ 
W 


For M = 1 To 12 


uses = NM & "X" & N & "=" 


5X12 = 60 


prodect = NUM * ............... 
Me.TextBoxl1.Text = Me.TextBoxl.Text & str & prodect & vbCrLf 


ا A‏ اجب عن الأسئلة مستيتا باكود اتا : 


For I = 1 To 8 Step C 
Me .TextBox1.Text = Me.TextBoxl.Text & I © vbCrLf 


1- الغرض من الكود هو DEE‏ 


EE تنتهى الحلقة التكرارية عند القيمة‎ A 


5- قيمة زيادة العداد 7 ببببب 0000 230 


6- الغرض من vbCrLf‏ هو SE‏ 


° 2- اسم متغير العداد 5*8 <<<« 
? 3- تبدأ الحلقة التكرارية بالقيمة ا ا ا ی ا ا ف و 


| اس جه الصف الثسالث 0 الصف التالث الإصدادى 0 GC‏ 


Se 69‏ الكت عند الضغط على زر أعداد فردية يطبع الأعداد الفردية من 1 


حتى العدد الموجب الذى يتم إدخاله » و إذا ضغطنا على زر أعداد زوجية فيطبع الأعداد الزوجية من 2 وحتى العدد iig‏ 
| الذى تم إدخاله فى صندوق القائمة. 


Dim N, i As Integer Te e 
N = Me.TextBox1 . Text o 
115158021 . Items. Clear () | 
1 = 1 V 
Do While i <= N i ETIR | 
ListBox1.Items.Add (i) 

i=i4+2 أعداد زوجية‎ | 
Loop 

المطلوب ` 

1- جملة التكرار فى البرنامج هى ب PPEP RAAE‏ 

2- الغرض من الكود (2 + 1 = 1 ) فى السطر قبل الأخير dee‏ 


ual -3‏ من Loop‏ هو EE‏ 
4- حدد الاختيار الصحيح لتحديد طبيعة كل جزء من مكونات سطر الكود : 


ListBox1.Items.Clear )( 


, Sum As Integer الغرض من الكود‎ -1 
TextBox1 Test TextBox1 . Text 
= 1 | ظ‎ 
Do While i <= N ١ SS ge 06 
Sum = Sum + i : 3 KI 
1 + 2 


Loop 


Label3. Text 


A‏ تنفيذ هذه الأوامر و التعليمات. 
ا A‏ الغرض من استخدام الإجراءات Procedure‏ تكرار كتابة كود معين عدة مرات فى البرنامج. 
A‏ عندما يكون لدينا كود معين نرغب فى تكراره فى أكثر من موضع داخل التصنيف نستخدم الدالة „Function‏ 
5- مجموعة من الأوامر و التعليمات تحت اسم وعند تنفيذها تعود بقيمة نطلق عليها إجراء Procedure‏ 
6- مجموعة من الأوامر و التعليمات تحت اسم وعند تنفيذها تعود بقيمة نطلق عليها إجراء „Function‏ 
7- عندما يكون لدينا كود معين نرغب فى تكراره فى أكثر من موضع داخل التصنيف نستخدم إجراء Procedure‏ 
i‏ 8- تستخدم Parameters‏ لإستقبال قيم من خارج الإجراء عند إستدعاء الإجراء . 
A‏ 9 عند إستدعاء إجراء باسم )0.05( Taxes‏ فإن القيمة بين القوسين يطلق Argument Wale‏ . 
1 10- عند إستدعاء إجراء باسم )0.05( Taxes‏ فإن القيمة Taxes‏ يطلق عليها Argument‏ . 
1- الإعلان عن الدالة يبدأ Sub‏ وينتهى ب End Sub‏ 
2- الإعلان عن الدالة يبدأ Function‏ وينتهى ب End Function‏ 
3- نلجأ لإستخدام الدالة Function‏ إذا كان لدينا كود سينتج عنه قيمة نحتاجها. 
14- نلجأ لإستخدام الإجراء Procedure‏ إذا كان لدينا كود سينتج عنه قيمة نحتاجها. 
5- الدالة عبارة عن مجموعة من الأوامر و التعليمات باسم معين يمكن أن تأخذ وسائط Parameters‏ وتعود بقيمة 
° راجعة Malue‏ 
6- الدالة عبارة عن مجموعة من الأوامر و التعليمات باسم معين يمكن أن تأخذ وسائط Values‏ وتعود بقيمة راجعة 
.Parameters‏ 


Sub ShowOddOrEven (ByVal Start As Integer) 
Dim i As Integer 
Label1.Text = "" 

For 1 = Start To 10 Step 2 IPA 
Labell.Text = Me.Labell.Text ع‎ " " & i Ka 

Next / 
End Sub 


| اس وة 
ER‏ اسم الإجراء 
ES‏ ثم الإعلان Parameters Ae‏ باسم 


| 
| 4 | الحلقة التكرارية تبدأ القيمة 


| 5 | قيمة الزيادة فى الحلقة التكرارية تساوى 


| Parametersgai 3. 


e‏ عند استدعاء الإجراء لتنفيذ الكود بدداً من القيمة 


01 
Se‏ اكمل مستعينا بالكود الثالى: 


Function XXX ( BayVal YYY As Integer, BayVal ZZZ As Integer) As Single 
COQ. RRS اسم الدالة‎ -1 
Return RRR نوع البيان الخاص بالقيمة الراجعة من الدالة‎ -2 


3- الوسائط Parameter‏ التى سوف تستخدم فى الكود ` End Function‏ 
A‏ القيمة الراجعة من الدالة 


C 
, 
ك‎ 
& 
& 
CG 


PoS 
D 


6 éi مع الإنترنت بل وكافة وسائل المعلومات والاتصالات أصبحت من موضوعات الساعة التى‎ E ل أخلاقيات‎ ° eN 


الأفراد والمجتمعات والدول. 
e‏ لذا نسعى فى هذا الفصل إلى رفع الوعى لدى أبنائنا وبناتنا بأهمية أخلاقيات التعامل مع الإنترنت وإكسابهم ERT‏ 
EEN‏ 
5 


خطأ ويمكن أن نتعرف على أشخاص سيئين. 
Lë‏ بعض الأساسيات التى يجب أن تتعلمها: ا 
- متصفع الانترنت : برنامج لعرض صفحات الويب. 0 
URL -‏ يقصد به عناوين مواقع الويب التى تستخدمها لعرض صفحات المواقع. 
- البريد الالكترونى : هو إمكانية إرسال و استقبال الرسائل الالكترونية و الرد عليها و الملفات المرفقة. 
- المحادثة الفورية : هى محادثة مع الآخرين بالكتابة أو بالصوت أو بالصوت و الصورة معا بإستخدام برامج المحادثة مثل 
Yahoo‏ 
° الفيروسات :هى برامج ضارة Jhai‏ نظام الكمبيوتر لأنها تقوم بحذف و تدمير و تغيير بيانات النظام و تعطيل البرامج. 
- الاختراق ٠‏ أشخاص يستغلوا نقاط ضعف نظام الكمبيوتر و يقوموا بإختراق جهازك . 
"© - انتحال الهوية : هو أن يقوم شخص بإنتحال شخصيتك على الانترنت. 


| عبارة عن سلوك عدواني متعمد يستخدم الوسائط الإلكترونية بغرض : التحرش - المضايقة‎ WEE e 
الإحراج - التخويف - التهديد... الخ.‎ - 


ËCH مع إمكانية‎ Van والرد وإعادة توجيه 4 الرسائل‎ Aë من خلاله يمكنك إرسال‎ : 3 Mail الكتروني‎ Aaf 1-1 a 
Wi ملفات بتلك الرسائل.‎ Y7, 
فيها يتم طرح موضوعات للمناقشة فيتم إرسال المشاركة وتجد الردود من الآخرين.‎ : Forums المنتديات الإلكترونية‎ -2 
من خلالها يحدث اتصال فوري بين طرفين أو أكثر عن طرق الكتابة‎ ` Instant Message الرسائل الفورية‎ -3 
أوالمحادثة الصوتية أو المرئية.‎ 
مده خاص يدون به صاحب المدونة ما يشاء.‎ dæ عبارة عن‎ ` Blogging التدوين الإلكتروني‎ -4 
الانترنت : عبارة عن مجموعة من صفحات الويب وتحتوى على نص أو صورة أو رسوم أو أصوات أو فيديو‎ em -5 (4) 
تسمح بنشر معلومات خاصة للشخص صاحب الحساب.‎ ` FaceBook المواقع الاجتماعية مثل‎ -6 
7-الهاتف المحمول : هاتف محمول يستخدم فى الاتصال بالآخرين بالإضافة إلى خدمات أخرى مصاحبة.‎ 
أشكال التعدى الالكترونى‎ : bi e 
عبارة عن " استخدام أسماء مستعارة تخفى شخصية المتعدى الإلكترونى بغرض‎ : Anonymity gigi! التخفي‎ -1 


أرسلت تعليق تلقيت رد من ( الصقر المفترس ) فى صورة تعليقات غير لائقة و لا تعرف من المتعدى. 
2- المصايقات الالكترونية Harassment‏ : 
عبارة عن " رسائل عدائية ias jag‏ موجهة ua‏ شخص أو أكثر ". 
Did‏ : أنت تقوم بمحادثة زملائك من خلال خدمة Chat‏ وحادثك Aal‏ المسجلين لديك بشكل مزعج و مستمر مضيعا 
لوقتك وأنت تريد أن تتجنب تلك المضايقة. 


" الإفلات من العقاب‎ p 
› مثال : أنت عضو فى أحد المنتديات الرياضية و تشارك فى الموضوعات التى تخص الفريق الذى تشجعه بروح رياضية‎ 
فكلما‎ $ 


2018 التسرم الثانى‎ ër 


J|‏ ام انات مده 


: Cyber stalking الالكترونية‎ dée a) -3 ) 


هي إرسال تعليقات عدائية بشكل متكرر لشخص ما بهدف التهديد أو التخويف. 
PS‏ 4 السب أو القذف الإلكتروني ee : Flaming‏ 
A |‏ عبارة عن نشر تعليقات أو كلمات عدائية و مبتذلة ضد شخص أو أكثر. 2 
مثال ` شخص مشهور يقرأ إحدى الصحف التى تستخدم مفهوم الويب التى تسمح لقرانها بإرسال تعليقاتهم على 
الموضوعات المنشورة وجد مقال يتكلم عنه ووجد إحدى تعليقات القراء تسبه بشكل مبتذل. 
5- التشهبر الإلكتروني Outing‏ ` عبارة عن نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ 
مثال : زميل لك قام بزيارتك و جلس أمام جهاز الكمبيوتر الخاص بك و قام بنسخ صور عائلتك و أرسلها إلى بريده 
5 الإلكترونى دون علمك ثم قام هذا الزميل بنشر هذه الصور فتسبب فى إحراجك . ١‏ 
8 6- الاستثناء الإلكتروني Exclusion)‏ : 8 
e‏ عبارة عن ضم بعض المراهقين إلى مجموعة معينة و نبذ الآخرين ألعاب الشبكة و يتجاهلون أحدهم كأنه لم يلعب" 
معهم مع أنه موجود على الشبكة. 
7- التهديد الإلكتروني Threats Cyber)‏ : 
عبارة عن إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص أو أكثر . 
° مثال : مجموعة من الأولاد بينهم مشاحنات يقوم كل منهم بإرسال رسائل نصية للتهديد . 0 
8- التعدى من خلال النص والدردشة :(Chatting)‏ 
0 هو المحادثة عبر الانترنت باستخدام نصوص و عبارات غير مرغوب فيها. 
) 9- نشر صور غير لائقة: هو ظهور بعض الصور غير اللائقة لبعض الأشخاص أثناء التجول عبر مواقع الانترنت. 


صديق من أصدقائك. 
2-إعداد كلمة مرور لا تستنتج › وذلك باستخدام مزيج من الحروف والأرقام "غير متعلقة باسمه أو سنة ميلاده أو 
: تفضيلاته أو أبناءه أو الأشخاص المقربين جداً منه". : 
A‏ عدم نشر أى بيانات خاصة أو عائلية على الإنترنت» بغض النظر عن طريق A Al‏ الإلكتروني» أو النصوص المكتوبة؛ أو 
اليوميات الإلكترونية» أو على المواقع الإلكترونية. 
W‏ 4- عدم حذف رسائل التعدي إلكتروني e‏ حيث يمكن أن تحتاجها كأدلة ضده. $ 
5- عدم مقابلة أحدا تعرفت عليه من خلال الإنترنت. 
6- عدم إرسال رسائل وأنت فى حالة غضب. 
7-إطلاع ولى الأمر بما يضايقك عند استخدام الإنترنت أو ممن تثق بهم من كبار العائلة أو من المعلمين إذا تلقيت بريد أو 
رسالة الكترونية تجعلك تشعر بعدم الراحة › و أخبر وشارك أحد الكبار بتجاربك على شبكة الإنترنت. 
CH‏ 8-إنزال Sal all‏ من الإنترنت يكون تحت إشراف معلمك أو ولى أمرك. CH‏ 
9- قم بالإبلاغ عن التعدي الإلكتروني للسلطات المختصة. 
0- لا ترد على المتعدي إلكترونياًء ولا تصدق كل ما يكتبه على الإنترنت والانتظار حتى تهدأً. 
1- احترم Laila‏ حق الآخرين على شبكة الإنترنت» وتعلم الخلق الحسن الذي يعتبر فن أدب التحاور على شبكة الإنترنت. 


Es ` Ch 


é س‎ | 


أسئلة كتاب الوزارة (الفصل الرابع) 


والمضايقة و إحراج و تخويف أو تهديد الآخرين. 

2) التعدى الالكترونى يتم من خلال وسائط إلكترونية مثل مواقع التواصل الاجتماعى. 

3) التخفى الالكترونى يعتبر صورة من صور التعدى الالكترونى. 

4) التحرش و التهديد من أهم الوسائط الإلكترونية المستخدمة فى التعدى الإلكترونى. 

5( المضايقة و الابتزاز من أشكال التعدى الإلكترونى. j‏ 

6) سرقة حساب شخص فى مواقع التواصل الاجتماعى أو بريده الإلكترونى أحد المخاطر التى يمكن التعرض لها عبرلا 
وسائط التواصل الاجتماعى. 

7( مواقع التواصل الاجتماعى تساعد فى التعرف على أشخاص جدد يفضل مقابلتهم لتطوير العلاقات الاجتماعية. 

8) تمشياً مع قواعد الاستخدام الآمن يفضل أن تضع كلمة مرور سهلة للبريد الإلكترونى الخاص بك حتى تسطيع تذكره. 

ص 9) الإستثناء الإلكترونى يعنى تتبع شخص معين فى كافة وسائل التواصل الاجتماعى. 

CH‏ 10( الملاحقة الالكترونية يقصد بها إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص أو أكثر. 


السؤال النانى ` اكمل موضحا رأيك فى كل عبارة مها يلى : 
1- وضع كلمة مرور سهلة الاستنتاج . 
2- نشر شخص لاسمه الحقيقى وعنوانه ورقم تليفونه عبر الوسائط الالكترونية. 
3- إنزال أى برامج تتاح لك على الانترنت. 
4- الرد السريع الغاضب على تعدى قد تتعرض له عبر الانترنت. 
5- حذف جميع الرسائل التى تم تهديدك بها فى مواقع التواصل الاجتماعى أو البريد الإلكترونى. 


1- اشترك أحد الأشخاص فى أحد مواقع التواصل الإجتماعى e‏ كلما راسل saj‏ الأعضاء أو حاول إجراء محادثة فورية, 
لاحظ عدم الرد عليه. 


- يعتبر ما حدث شكل من أشكال ........................................ و يسمى EE‏ 


- ماذا تفعل لمواجهة ذلك التصرف DO E ELEA EERE SEE EE EE EENE E T‏ غ1 

اشتركت فى gilga Aal‏ التواصل الإجتماعى و فوجنت بتهكم Aal‏ الأشخاص على مصر و الحديث عن رموزها بشكل 
غير لائق. 

- حدد (4) تصرفات إيجابية يمكن من خلالها الرد عليه. 


1- 2*5« 
2- 990990909000 ش#ظ3 
3- ل د مر ف A‏ و نعل كك ق ومو E A‏ لط مع لل لو و A‏ و ع E‏ 
E E A E T TA A T A -4‏ 


